Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34714 / 76734

←次へ　｜　前へ→


	【47226】Re:選択範囲で関数を

Kein - 07/3/5(月) 17:07 -


	引用なし

	パスワード

この質問の意味として「選択範囲は常に1列、その列の先頭行の値と、各行のA列
の値を引数とする関数を作る」ということでいいのかな ?
そうするとコードは基本的に・・

Dim C As Range
Dim Dt1 As Variant, Dt2 As Variant, Dt3 As Variant

If TypeName(Selection) <> "Range" Then Exit Sub
With Selection
　 If Not Intersect(.Cells, Range("B2:D15")) Is Nothing Then
　　　If .Count > Intersect(.Cells, Range("B2:D15")).Count Then
　　　　 Exit Sub
　　　End If
　　　If .Columns.Count > 1 Then Exit Sub
　 Else
　　　Exit Sub
　 End If
　 For Each C In .Cells
　　　Dt1 = Cells(1, C.Column).Value
　　　Dt2 = C.Value
　　　Dt3 = Cells(C.Row, 1).Value
　　　Debug.Print Dt1 & " : " & Dt2 & " : " & Dt3
　 Next
End With

というようにして、イミディエイトウィンドウで確認してみて下さい。

2 hits

▼

【47201】選択範囲で関数を はこだ 07/3/5(月) 12:24