top
| VBAメモ | |||
| オフセット | Selection.Offset(0, 1).Select 下にゼロ右に1ずれる |
||
| リサイズ | Selection.Resize(3, 12).Select 下に3、右に12選ぶ マイナスやゼロはダメです |
||
| 新規入力セル | Dim r As Long r = ActiveSheet.Rows.Count Cells(r, 1).End(xlUp).Offset(1).Select |
||
| もしAならばBをする | IF A Then B End IF |
||
| セルに色付けした色数 を数える |
Function ColorCount(R1 As Range, C As Range) Dim r As Range Application.Volatile ColorCount = 0 For Each r In R1 If r.Interior.Color = C.Interior.Color Then ColorCount = ColorCount + 1 End If Next r End Function 数式例 =ColorCount(B2:B17,D2) と入力 ※ B2:B17は範囲、D2は数える色 |
||
| K列に来たら下に1、 左に5移動 |
If ("$K" = Left(Selection.Address, 2)) Then ActiveCell.Offset(1, -5).Select End If |
||
| AH列来たら右に10移動 | If ("$AH" = Left(Selection.Address, 3)) Then ActiveCell.Offset(0, 10).Select End If '※ 2と3に注意 K列は2、AH列は3(A〜Zは2、AA〜は3） |
||
| 特定のセルを選んだら移動する ※F37セルのとき |
If (ActiveCell.Row = 37) And (ActiveCell.Column = 6) Then Selection.Offset(1, -1).Select End If |
||
| 10桁のバーコード入力の読み取りミス対策 | C列の入力桁数が9以下だったらD列に改行しても C列に戻り再読み込みする Dim e As String If e = "$C" Then If Len(Selection.Offset(0, -1)) <= 9 Then Selection.Offset(0, -1).Select End If End If |
||
| NETWORKDAYS関数 | アドインの分析ツールにチェックを入れること （使用するPCごと） |
||
| A1セルをファイル名にする | Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("A1").Value | ||
