Excel2000 VBA 練習

Excel2000 VBA　練習

◆アクティブセルの行、列番号をメッセージウインドウに表示する◆

Sub 選択されているセルの行列を調べる()

行 = ActiveCell.Row
列 = ActiveCell.Column

MsgBox "行番号は " & 行 & Chr(13) & Chr(10) & "列番号は " & 列　　　　'Chr(13) & Chr(10)で改行

End Sub

メッセージボックスの表示位置を変更したかったが無理らしい

---

 

追記

Sub 選択されているセルの行列を調べる2()

行 = ActiveCell.Row
列 = ActiveCell.Column
A1 = ActiveCell.Address(False, False, xlA1) 'xlA1 (A1形式) xlR1C1(R1C1形式)

MsgBox "行番号は " & 行 & Chr(13) & Chr(10) & "列番号は " & 列 & Chr(13) & Chr(10) & A1

End Sub

 

 

---

Sub 選択されているセルの行列を調べる3()

行 = ActiveCell.Row
列 = ActiveCell.Column
a1 = ActiveCell.Address(False, False, xlA1) 'xlA1 (A1形式) xlR1C1(R1C1形式)

左から2文字 = left(a1, 2)                      ' 例　セル"AB12"　左の２文字を取り出す→AB

右1文字 = Right(左から2文字, 1)                  'AB→B 数字でなければ　AB 数字なら　A
If 右1文字 = "0" Or 右1文字 = "1" Or 右1文字 = "2" Or 右1文字 = "3" Or 右1文字 = "4" Or 右1文字 = "5" Or 右1文字 = "6" Or 右1文字 = "7" Or 右1文字 = "8" Or 右1文字 = "9" Then 左から2文字 = left(左から2文字, 1) Else 左から2文字 = 左から2文字

MsgBox "行番号は " & 行 & Chr(13) & Chr(10) & "列番号は " & 列 & Chr(13) & Chr(10) & a1 & Chr(13) & Chr(10) & 左から2文字

End Sub

---

Excel　入力規則　リストから入力

 

再生できない場合、ダウンロードは🎥こちら

 

 

---

参照渡しで引数を渡す

 

参考　http://www.officepro.jp/excelvba/sub/index5.html

Sub プロシージャ名(ByRef 変数名 As データ型)

Sub ex_001()
    Dim data As String
    data = "あいうえお"
    Call left_3(data)           'left_3を呼び出し
    Range("A1").Value = data
End Sub

Sub left_3(ByRef data As String)
    data = left(data, 3)
End Sub

 

再生できない場合、ダウンロードは🎥こちら

 

---

 

今日の日付が記入されているセルの背景を赤にする

Sub 今日の日付行に色をつける()
Dim lastRow As Integer
Dim i As Integer

'記入されている最終行を取得
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
'
Call color_kesu(lastRow)
Cells(1, "A").Select
For i = 2 To lastRow
If Cells(i, 1) = Date Then Call color_01(i): i = lastRow
Next i
End Sub
'選択セルの背景色を赤にする
Sub color_01(ByRef i As Integer)
Cells(i, 1).Interior.ColorIndex = 3
End Sub
'選択範囲のセルの背景色を消す
Sub color_kesu(ByRef lastRow As Integer)
Range(Cells(1, "a"), Cells(lastRow, "a")).Select
Selection.Interior.ColorIndex = 0
End Sub

再生できない場合、ダウンロードは🎥こちら

備考

1. 色の設定　.Interior.Color = RGB(255,0,0)