ユーザー定義関数を作りました。
ところが、この関数が自動再計算をしてくれません。
どうしたら自動再計算するようになるのでしょうか？
よろしくお願いします。
ちなにこの関数は、自分のシートのB2とsheet1～sheet4のB9を比較して、正しければB9の４つ右のセルの値を合計して返すものです。
=SheetLook($B$2,"sheet1,sheet2,sheet3,sheet4",B9,4)
コードです。
Function SheetLook(参照元 As Variant, 比較対象シート As String, 比較対象セル As Range, 参照セル位置 As Integer) As Variant
Dim i As Integer
Dim rng As Range
Dim sss As Variant
Dim kei As Variant
Dim cnt As Integer
sss = Split(比較対象シート, ",")
kei = 0
cnt = 0
For i = 0 To UBound(sss)
Set rng = Sheets(sss(i)).Range(比較対象セル.Address)
If 参照元 = rng Then
kei = kei + rng.Offset(0, 参照セル位置)
cnt = cnt + 1
End If
Next
If cnt <> 0 Then
SheetLook = kei
Else
SheetLook = ""
End If
End Function
Excel2000でロックしていないセルに画像を貼り付けようと思います。
パスワードでシート保護しています。
VBAで次のように処理したら画像は貼り付けられました。
しかしパスワード入力を求められ、入力すると画像の挿入後シートは保護されたのですが、パスワードは解除になっています。
パスワード解除にならずに画像挿入できる方法をご教示ください。
さらに挿入後のサイズ変更のVBAも併せて教えて頂ければ助かります。
当方VBAについては全くの初心者です。
Sub 画像挿入()
With ActiveSheet
'シート保護解除
.Unprotect
'画像挿入ダイアログ表示--＞画像を挿入
Application.Dialogs(xlDialogInsertPicture).Show
'画像が挿入されたら、保護のロック対象外に設定
If TypeName(Selection) = "Picture" Then
Selection.Locked = False
End If
'シート保護
.Protect DrawingObjects:=False, Contents:=True
End With
End Sub
Excel VBA
リストのソースを設定してあるコンボボックスから次のコンボボックスに移動する際、入力にエラーあれば
フォーカスを移動しないようにするコードはどのようにすればいいのですか？
現在は
Private Sub [コンボボックス名１]_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If [コンボボックス名２] = "" Then
MsgBox "値が不正です。", vbInformation, "フォーム名"
End If
End Sub
としています。
Excel VBA
リストのソースを設定してあるコンボボックスから次のコンボボックスに移動する際、入力にエラーあれば
フォーカスを移動しないようにするコードはどのようにすればいいのですか？
現在は
Private Sub [コンボボックス名１]_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If [コンボボックス名２] = "" Then
MsgBox "値が不正です。", vbInformation, "フォーム名"
End If
End Sub
としています。
エクセルで2000行分くらいの表があり、A1、A2と順番に処理して行くのですが、その処理の結果によって間が飛ぶ場合があります。
A1→B1→E1→F1→G1・・・といった感じです。
こんなマクロの中で、行が1000を「超えた」ときに「一回だけ」メッセージ（例えば「1000を超えました」）を表示させるにはどうすればいいでしょうか。
Dim a As Range
If a.Row = 1000 Then MsgBox ("1000を超えました")
これでは、ちょうど1000行目が飛ばされた場合は素通りしますし、
If a.Row >= 1000 Then MsgBox ("1000を超えました")
これだと、1000行目を超えたら毎回メッセージが表示されます。
何かいい方法はないでしょうか。
よろしくお願いします。
