tgookのプロフィール

山登りのトレーニングについて教えてください。 どこからはじめたらいいですか。

隣アパートの犬がうるさいのです。 平日PM、休日が特にひどい ギャンギャンギャンギャンしつけがなってないようです。 夜・夜中もないてる時があります。 証拠となるかわかりませんが、手帳に犬が出て吠えまわってる時間書いてあったり、携帯でですが動画をとっておいたりしています。 飼い主である家主は静かにさせるそぶりは全くなし。 どうやら一部に海外（日本語が微妙）な方がお住まいのようです。 見て回りましたが、管理会社の看板はなし この場合はどこに言ったらいいでしょうか？ 場合によっては、引っ越しを検討しています。

ホームページを作成しています。会社のホームページとして使用したいと思っています。ヤフーオークションで見かけますが、ページを最後まで下げると、【元に戻る】？のようなものをクリックするとページの先頭に戻りますが、あの機能をホームページに、設置する事は可能でしょうか。ホームページはjimdoで作成しています。よろしくお願いします。

みなさん教えてください。 今エクセルで、数値計算をしていて悩んでいます。 ＜悩み＞ 下記のような数値（約１５００個）がＡ列にあり、下記条件に合致すれば 指定する計算式で計算し、Ｂ列に答えを出したいと思っていますが、う まくいきません。 ＩＦ関数を使いましたが０以上の場合しか指定できませんでした。 =IF(A:A>=0,(F:F*0.01)) みなさん教えてください。 よろしくお願いします。 ＜条件＞計算式 Ａ列にある数値が０以上の場合　：　Ａ列の数値＊０．０１ Ａ列にある数値が０以下の場合　：　Ａ列の数値＊０．５ ＜数値＞ Ａ列 ------- 1 1 2 -1 -2 -5 1 5 3 ・ ・ ・

現在VBA（Excel)にて統計のプログラムを作成しています。 Sheet２に統計表 統計対象のシートはシートタブの色が赤色(枚数不特定) 統計表の縦軸には、B４～15に４～３(１年度の月)。横軸にはF～J４に１～５。 統計対象シートの構成は同じで セルE4に１～５の数字のどれか セルE24には１～12の数字のどれかが入ります 統計表イメージ A　　　 B 　　　C 　　　D １　　　 １　　　 ２　　　 ３ ２ ４月 ３ ５月 ４ ６月 ５ ７月 入力画面（シート名部分赤シート） E4 ←１～５のどれか E24 ←１～１２のどれか この場合において、たとえばE4が"１"、E24が"４"だった場合 統計表のB2にカウントされるというプログラムが作りたいのですが、 Option Explicit Private Sub CommandButton2_Click() Dim Ws As Worksheet Dim cnt　As　Variant Dim grade() As Variant 'grade = grd = 学年 grade = Array("1", "2", "3", "4", "5") Dim month() As Variant 'month = mnt = 月 month = Array("4", "5", "6", "7", "8", "9", "10", "11", "12", "1", "2", "3") Dim grd As Integer '各変数宣言 Dim mnt As Integer Dim set1 As Integer Dim set2 As Integer Dim 月ー所 As Worksheet For grd = 1 To 5 If Cells(4, 5).Value = grade(grd - 1) Then cnt = 0 set1 = grd + 5 End If For mnt = 1 To 12 If Cells(24, 5).Value = month(mnt - 1) Then set2 = mnt + 3 End If 　 For Each Ws In Worksheets If Ws.Tab.ColorIndex = red Then cnt = cnt + 1 End If Next Worksheets("月ー所").Cells(set2, set1).Value = cnt ←この行でエラー1004 Next mnt Next grd MsgBox "統計しました。" End Sub 矢印で示した行のエラー1004の解除方法が分からず悩んでいます どうかよろしくお願いいたします。