Excel VBA質問箱 IV

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

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


4078 / 13644 ツリー ←次へ | 前へ→

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

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

引用なし
パスワード
   エクセルSheetの最終行セルの値を End(xldown)で取得した後、
その値を変数に入れて使用したいのですが、その方法を教えてください。

たとえば、売上データで集計した場合に最終行に合計が出た時にそのセルの
文字を大きくしたり太字にしたい時に、セルを指定したいのです。

よろしくお願いいたします。

【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

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