Excel VBA質問箱 IV

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

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


34718 / 76738 ←次へ | 前へ→

【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

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

0 hits

【47201】選択範囲で関数を はこだ 07/3/5(月) 12:24 質問
【47208】Re:選択範囲で関数を Jaka 07/3/5(月) 14:36 発言
【47214】Re:選択範囲で関数を はこだ 07/3/5(月) 15:19 質問
【47226】Re:選択範囲で関数を Kein 07/3/5(月) 17:07 回答
【47229】Re:選択範囲で関数を はこだ 07/3/5(月) 17:39 お礼

34718 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free