最終更新: bokkuri_orz 2017年04月07日(金) 02:16:10履歴
Dim r As Range Set r = ActiveSheet.Range(Cells(1, 1), Cells(3, 3)) ' 3x3 を選択 r.Offset(1,1).Select ' 3x3の範囲を行、列方向に+1移動した範囲が選択される
Dim r As Range Set r = ActiveSheet.Range(Cells(1, 1), Cells(3, 3)) ' 3x3 を選択 r(1,1).Select ' 3x3の左上1セルを選択 r(0,0).Select ' 3x3の左上からさらに1行1列左上のセルを選択
Sub Test() ' 現在のActiveSheetに対して操作 Range(Cells(1,1), Cells(3,3)).ColumnWidth = 5 ' ポイント指定 Range(Cells(1,1), Cells(3,3)).RowHeight = 5 ' ポイント指定 ' 同じポイント数でも、セルの形状が正方形になるとは限らない。 ' 環境によって縦横比が違う。 End Sub
Sub Test() ' ColumnWidthをセットした後、そのセルのWidthをRowHeightにセットすると、正方形になる? Range(Cells(1, 1), Cells(3, 3)).ColumnWidth = cellSize Range(Cells(1, 1), Cells(3, 3)).RowHeight = Cells(1, 1).Width End Sub
※動作を把握できていないので、後ほど調査する。
ActiveSheet.UsedRange With ActiveSheet.UsedRange .Item(1) ' 範囲内の左上のセル("0"を入れると左上のセルの、さらに一つ左になる) .Item(.Count) ' 範囲内の右下のセル End With
Dim rangeS As Range Set rangeS = ActiveSheet.Cells.Find("検索したい文字列", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True, MatchByte:=True)
Range("A1").End(xlDown) ' 下方向にセルの値の有り/無しが切り替わる直前まで検索 Range("A1").End(xlRight) ' 右方向にセルの値の有り/無しが切り替わる直前まで検索
Private Sub TextBox1_Change() If Len(TextBox1.Text) = 0 Then Exit Sub End If ' 一番右の文字が数値であれば何もしない If IsNumeric(Right(TextBox1.Text, 1)) = True Then Exit Sub End If ' 数値でなかった場合、その一文字を削る TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1) End Sub
※問題点:テキストボックス内でカーソルを移動し、数値の中間で数値以外の文字を入力できてしまう。
- 参考サイト
フォームを表示する際に、vbModelessを指定します。
UserForm1.Show vbModeless
- 参考サイト
Private Sub DrawBorder(r As Range) With r ' 実線 .Borders(xlEdgeTop).LineStyle = xlContinuous ' 選択範囲の上辺 .Borders(xlEdgeBottom).LineStyle = xlContinuous ' 選択範囲の下辺 .Borders(xlEdgeRight).LineStyle = xlContinuous ' 選択範囲の右辺 .Borders(xlEdgeLeft).LineStyle = xlContinuous ' 選択範囲の左辺 ' 太線 .Borders(xlEdgeTop).Weight = xlMedium .Borders(xlEdgeBottom).Weight = xlMedium .Borders(xlEdgeRight).Weight = xlMedium .Borders(xlEdgeLeft).Weight = xlMedium End With End Sub
xlDiagonalDown 右下がり斜め | xlEdgeTop 上辺 | xlDiagonalUp j右上がり斜め |
xlEdgeLeft 左辺 | xlInsideHorizontal 内側水平線 xlInsideVertical 内側垂直線 | xlEdgeRight 右辺 |
xlEdgeBottom 下辺 |
xlContinuous | 実線 |
xlDash | 破線 |
xlDashDot | 一点鎖線 |
xlDashDotDot | 二点鎖線 |
xlDot | 点線 |
xlDouble | 二重線 |
xlSlantDashDot | 斜め一点鎖線 |
xlLineStyleNone | 無し |
最新コメント