カワイク過ごす、Happyライフスタイル | マンション区分とアパート1棟における維持費用の比較(1)

マンション区分とアパート1棟における維持費用の比較(1)

2012年01月24日 20時47分

マンション区分とアパート1棟における維持費用の比較

これまで不動産投資の対象としてアパート1棟について勉強をしていましたが、最近マンション区分にも目を向けるようになりました。マンション区分とアパート1棟における維持費用の違いを次のように理解していますが、勘違いしている点はありますか。また、他にもあればご教示頂けると幸いです。

■アパート1棟にかかる維持費用は次のようなものがあると考えています。
　　・　共有スペースの光熱費・水道代
　　・　火災保険/地震保険
　　・　管理費(1)(管理会社利用時：入居者管理、賃貸/家賃保証、清掃など)
　　・　修繕積立金(積立)
　　・　広告費(入居者募集時)
　　・　租税公課
　
■マンション区分にかかる維持費用は次のようなものがあると考えています。
　　・　管理費(1)(管理会社利用時：入居者管理、賃貸/家賃保証など)
　　・　管理費(2)(マンションオーナーに払う分)
　　・　修繕積立金(掛け捨て)
　　・　広告費(入居者募集時)
　　・　租税公課

■違い
　　・　アパート1棟とは違いマンション区分は建物自体の火災保険/地震保険などは不要。
　　　 (入居者が入る家財保険はここでの対象外)
　　・　管理費(1)について、アパート1棟とマンション区分とでは管理内容が異なる。
　　・　マンション区分とアパート1棟の維持費用の内容は若干の差異があるものの、
　　　 収入に対する維持費用の割合は大きくは変わらない。

≫ 詳しい内容

1/1.7型CCDと1/2.3型CMOS

1/1.7型CCDと1/2.3型CMOSにはどのような差があるんでしょうか？

ここで説明するのは難しいかもしれませんが簡単にでも結構ですので教えていただけませんでしょうか？よろしくお願いします。

≫ 詳しい内容

「・・・太郎」といえば？

「・・・太郎」で思いつくのは、誰ですか？

≫ 詳しい内容

ユーザーフォームをWorkSheet(1)に固定

●質問の主旨

WorkSheet(1)（「柴田8月分」）にユーザーフォームを固定的に
表示させつつ、WorkSheet(1)以降のWorkSheet(2）、
WorkSheet(3）、WorkSheet(4）の表を参照しながら
ComboBox1、ComboBox2、ComboBox3にリストを
選択して、データベースに入力したいと考えています。

以下のコードをどのように書き換えれば良いでしょうか？
ご教示のほどよろしくお願い申し上げます。

●質問の補足

現在のコードでは、ComboBox1、ComboBox2、ComboBox3を
それぞれ選択しているとユーザーフォームがそれぞれ
WorkSheet(2）、WorkSheet(1)（顧客リスト）、WorkSheet(3）（社員名）、
WorkSheet(4）（大分類）にとんでしまいます。
転記入力が終了すると、また手作業でWorkSheet(1)に戻らなければなりません。
その手作業を回避したいと考えています。

なお添付画像はComboBox1の選択前なのでWorkSheet(1)
に留まってくれています。

●コード
Option Explicit

'ユーザーフォームの初期化
Private Sub UserForm_Initialize()
Dim r As Range
Dim n As Range
Dim d As Range
With Worksheets(2)
Set r = .Range("C3", .Cells(.Rows.Count, 2).End(xlUp))
End With
With Me.ComboBox1
.ColumnCount = 2
.ColumnWidths = ";0"
.List = r.Value
End With
With Worksheets(3)
Set n = .Range("C3", .Cells(.Rows.Count, 2).End(xlUp))
End With
With Me.ComboBox2
.ColumnCount = 2
.ColumnWidths = ";0"
.List = n.Value
End With
With Worksheets(4)
Set d = .Range("C3", .Cells(.Rows.Count, 2).End(xlUp))
End With
With Me.ComboBox3
.ColumnCount = 2
.ColumnWidths = ";0"
.List = d.Value
End With
Set r = Nothing
Set n = Nothing
Set d = Nothing
TextBox3.Value = Worksheets(1).Range("A2").Value + 1
txtdate = Date
OptionButton1.Value = True
End Sub

'ComboBox1をクリックしたときの処理
Private Sub ComboBox1_Click()
Worksheets(2).Select
With Me.ComboBox1
Me.Label19.Caption = .List(.ListIndex, 1)
Worksheets(2).Select Replace:=False
End With

End Sub

'ComboBox2をクリックしたときの処理
Private Sub ComboBox2_Click()
Worksheets(3).Select
With Me.ComboBox2
Me.Label20.Caption = .List(.ListIndex, 1)
Worksheets(3).Select Replace:=False
End With

End Sub

'フォームからデータベースへの転記
Private Sub CommandButton3_Click()
Dim Rowpos As Long
Dim ColPos As Long
Rowpos = Worksheets("柴田8月分").Range("a10000").End(xlUp).Row
ColPos = 1
Rowpos = Rowpos + 1
With Worksheets("柴田8月分")
.Cells(Rowpos, ColPos) = TextBox3.Value
.Cells(Rowpos, ColPos + 1) = txtdate.Value
.Cells(Rowpos, ColPos + 2) = Label19.Caption
.Cells(Rowpos, ColPos + 3) = ComboBox1.Text
.Cells(Rowpos, ColPos + 4) = ComboBox2.Text
.Cells(Rowpos, ColPos + 5) = Label20.Caption
.Cells(Rowpos, ColPos + 6) = ComboBox3.Text
End With
'Noの加算
Dim i As Long
For i = 1 To 1 Step 1
TextBox3.Value = TextBox3.Value + 1
Next
Call Clearcmb

End Sub

'データベース入力後にコンボボックスを空欄にする
Private Sub Clearcmb()
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
End Sub

'ユーザーフォームの終了
Private Sub CommandButton5_Click()
Unload UserForm1
End
End Sub

以上よろしくお願い申し上げます。使用機種はWindowsVistaで、
Excel2007です。私はVBA初心者です。

≫ 詳しい内容

ソルデム１輸液について

ソルデム１輸液　５００ｍＬを点滴したら、高熱が下りました。
解熱作用もあるのでしょうか。

≫ 詳しい内容