Excel VBA質問箱 IV

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

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


23556 / 76732 ←次へ | 前へ→

【58542】Re:取得したセルの値を変数にいれるには
発言  Abebobo  - 08/10/29(水) 12:32 -

引用なし
パスワード
   マクロ初心者 さん こんにちは
>エクセルSheetの最終行セルの値を End(xldown)で取得した後、
>その値を変数に入れて使用したいのですが、その方法を教えてください。
宣言時に(Dim) Range型にしておいて、
Set で変数にぶち込むのが、簡単だと思います。

Sub Macro1()
Dim T_range As Range

Set T_range = ActiveSheet.Range("A1").End(xlDown)
With T_range
 Debug.Print .Address & "の色は " & .Interior.ColorIndex
End With
  
End Sub


こんな方法も

Sub BB()
Dim r As Long
Dim c As Long

r = ActiveSheet.Range("A1").End(xlDown).Row
c = ActiveSheet.Range("A1").End(xlDown).Column

With ActiveSheet.Cells(r, c)
 Debug.Print .Address & "の色は " & .Interior.ColorIndex
End With

End Sub

2 hits

【58541】取得したセルの値を変数にいれるには マクロ初心者 08/10/29(水) 11:05 質問
【58542】Re:取得したセルの値を変数にいれるには Abebobo 08/10/29(水) 12:32 発言

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