セルの高さを変更することが多々あり、クイックアクセスツールバーに行の高さコマンドを出してありますが、請求書などのフォーマットは行数が決まっているのでマクロを利用しています。
しかし、毎回入力モードを切り替えなければならず、これが結構面倒です。
fmIMEModeOffを使用することは分かりましたが、どのように組み込めばいいのか分かりません。
Sub 高さ指定()
Range("11:100,102:104").Select
Selection.RowHeight = InputBox("セルの高さ入力(15～30)")
End Sub
よろしくお願い致します。
CheckBoxのチェック漏れ防止方法で現在以下のコードで実行しています。
CheckBox1～7つあり、1つも選択していない場合は、メッセージを出す仕組みです。
Private Sub CommandButton1_Click()
If CheckBox1 = True Or CheckBox2 = True Or CheckBox3 = True Or CheckBox4 = True Or _
CheckBox5 = True Or CheckBox6 = True Or CheckBox7 = True Then
MsgBox "OK"
Else
MsgBox "必ず一つ以上選択してください。"
End If
End Sub
今は、CheckBoxが７つだけなのですが、今後20個ぐらいに増える予定です。
For~Nextで試してみたのですが、メッセージがチェックした分だけ表示を繰り返してしまいました。
今まで通り、Orでつなげても良いのすが、もう少しコードをコンパクトにする方法を探しているのですが、なかなか見つかりません。
ご教授をお願いします。
お世話になります。
だいぶ前にここで下記のコードを教わってかなりの期間、複数のＢｏｏｋで問題なく使用させてもらっていたのですが、最近不具合が発生していることに気付きました。（担当者が結果を手入力していたので正確な発生時期不明）
不具合の内容は別シート「計算表」で計算した結果（セルの値）をVBAで指定のシート「入力表」の指定の列「D列」の最下行に転記するとこの列の上部の平均値や最大値がエラ表示に変わってしまいます。
手入力やコピペで値を入れると正しく計算されます。
今まで複数のＢｏｏｋで使用しているVBAでこれまで問題なく動いていたのですが今日確認したら他のBookでも同じ不具合が発生していました。
手入力、コピペとVBAでの転記で何が違うのでしょうか？
非常に困っていますので解決手段、改善の可能性のある方法でもよいのでアドバイスをお願いします。
Sub 計算表()
Dim MyRange As Range
With ThisWorkbook
Set MyRange = _
.Sheets("入力表").Cells(Rows.Count, 4).End(xlUp)
MyRange.Offset(1, 0).Value = .Sheets("計算表").Range("C11").Value
Application.Goto Reference:=Worksheets("入力表").Columns("A"), Scroll:=True
End With
End Sub
vbaにて別ブックの一覧を参照し、
指定範囲に検索文字列が含まれる場合
文字列の置換&対象セルの色付け&
件数の表示を行うコードから、
文字列の置換&セル内の変更した文字列のみ
色付け&件数の表示を行うコードに変更したいです。
変更した文字列のみ文字色を変更したい場合、
どのようなコードに書き換えればよろしいでしょうか。
なお、現在のコードは以下の通りです。
============================
Sub 複数条件で一括置換する()
Dim 範囲 As Object
Dim 対象 As Object
Dim 一覧 As Variant
Set 範囲 = Selection
一覧 = Workbook("確認.xlsm").Sheets("複数条件").Range("A1:B7")
Dim tmp As Variant
Dim mCnt As Long
中略
mCnt = 0
For Each 対象 In 範囲
For i = LBound(一覧, 1) To UBound(一覧, 1)
tmp = 対象.Value
対象.Value = Replace(対象.Value, 一覧(i, 1), 一覧(i, 2))
If tmp <> 対象.Value Then
対象.Interior.Color = vbRed
mCnt = mCnt + 1
End If
Next
Next
MsgBox mCnt & "件置換しました"
Set 範囲 = Nothing
Set 対象 = Nothing
End Sub
お世話になります。
だいぶ前にここで下記のコードを教わってかなりの期間、複数のＢｏｏｋで問題なく使用させてもらっていたのですが、最近不具合が発生していることに気付きました。（担当者が結果を手入力していたので正確な発生時期不明）
不具合の内容は別シート「計算表」で計算した結果（セルの値）をVBAで指定のシート「入力表」の指定の列「D列」の最下行に転記するとこの列の上部の平均値や最大値がエラ表示に変わってしまいます。
手入力やコピペで値を入れると正しく計算されます。
今まで複数のＢｏｏｋで使用しているVBAでこれまで問題なく動いていたのですが今日確認したら他のBookでも同じ不具合が発生していました。
手入力、コピペとVBAでの転記で何が違うのでしょうか？
非常に困っていますので解決手段、改善の可能性のある方法でもよいのでアドバイスをお願いします。
Sub 計算表()
Dim MyRange As Range
With ThisWorkbook
Set MyRange = _
.Sheets("入力表").Cells(Rows.Count, 4).End(xlUp)
MyRange.Offset(1, 0).Value = .Sheets("計算表").Range("C11").Value
Application.Goto Reference:=Worksheets("入力表").Columns("A"), Scroll:=True
End With
End Sub
お世話になります。
だいぶ前にここで下記のコードを教わってかなりの期間、複数のＢｏｏｋで問題なく使用させてもらっていたのですが、最近不具合が発生していることに気付きました。（担当者が結果を手入力していたので正確な発生時期不明）
不具合の内容は別シート「計算表」で計算した結果（セルの値）をVBAで指定のシート「入力表」の指定の列「D列」の最下行に転記するとこの列の上部の平均値や最大値がエラ表示に変わってしまいます。
手入力やコピペで値を入れると正しく計算されます。
今まで複数のＢｏｏｋで使用しているVBAでこれまで問題なく動いていたのですが今日確認したら他のBookでも同じ不具合が発生していました。
手入力、コピペとVBAでの転記で何が違うのでしょうか？
非常に困っていますので解決手段、改善の可能性のある方法でもよいのでアドバイスをお願いします。
Sub 計算表()
Dim MyRange As Range
With ThisWorkbook
Set MyRange = _
.Sheets("入力表").Cells(Rows.Count, 4).End(xlUp)
MyRange.Offset(1, 0).Value = .Sheets("計算表").Range("C11").Value
Application.Goto Reference:=Worksheets("入力表").Columns("A"), Scroll:=True
End With
End Sub
お世話になります。
だいぶ前にここで下記のコードを教わってかなりの期間、複数のＢｏｏｋで問題なく使用させてもらっていたのですが、最近不具合が発生していることに気付きました。（担当者が結果を手入力していたので正確な発生時期不明）
不具合の内容は別シート「計算表」で計算した結果（セルの値）をVBAで指定のシート「入力表」の指定の列「D列」の最下行に転記するとこの列の上部の平均値や最大値がエラ表示に変わってしまいます。
手入力やコピペで値を入れると正しく計算されます。
今まで複数のＢｏｏｋで使用しているVBAでこれまで問題なく動いていたのですが今日確認したら他のBookでも同じ不具合が発生していました。
手入力、コピペとVBAでの転記で何が違うのでしょうか？
非常に困っていますので解決手段、改善の可能性のある方法でもよいのでアドバイスをお願いします。
Sub 計算表()
Dim MyRange As Range
With ThisWorkbook
Set MyRange = _
.Sheets("入力表").Cells(Rows.Count, 4).End(xlUp)
MyRange.Offset(1, 0).Value = .Sheets("計算表").Range("C11").Value
Application.Goto Reference:=Worksheets("入力表").Columns("A"), Scroll:=True
End With
End Sub
