Sheet1に
A1 a
A2 i
A3 u
と入力されています。
フォームのリストボックスにこの3つのセルを表示したいのですが
Private Sub UserForm_Initialize()
UserForm1.ListBox1.ControlSource = Sheets("Sheet1").Range(Cells(1, 1), Cells(1, 3))
End Sub
ではうまく行きません。
デバッグしてもなにも引っかからないのですが
実行すると
「実行時エラー13
型が一致しません」
となります。
「ControlSource」を「RowSource」に変えても同じでした。
※列が移動するため列番号を変数で取得したいのでCellsを使用しています。
ご教授よろしくお願いします。
以下のようにプログラムしています。
最後のステップでOlEobjectのエラーになります。
いろいろ、調べてみたのですが、解決策がわかりません。
ご指導よろしくお願いします。
Dim WBK As Workbook
Dim トップ As Worksheet
Dim 履歴ログ As Worksheet
Dim リスト As Worksheet
Set WBK = Workbooks("外出管理.xls")
Set トップ = WBK.Worksheets("トップ")
Set 履歴ログ = WBK.Worksheets("履歴ログ")
Set リスト = WBK.Worksheets("リスト")
トップ.Activate
トップ.OLEObjects("CommandButton" & i).Object.Caption = "空き部屋"
Excel VBA でBook2にシートを移動した後、元のBook1に自動で戻る
VBAを教えたください。
Sub シートを移動する()
Windows("Book1.xls").Activate
Sheets(エリカ).Select
Sheets(エリカ).Move After:=Workbooks("Book2").Sheets(1)
このあとBook1に戻りたい!
End Sub
Excel2003 でマクロ作成中の超初心者です。マクロ完成まであと一歩になりました。次から進みません。お願いします。
ブックA ブックB ブックCの3個のブックがあります。
ブックAのコマンドボタン→ ブックBに飛びます。
ブックBには、フォームコントロール(終了するコマンドボタン)と、特定セルにコントロールが張り付けてあります。
ブックA→ブックBの終了ボタン →正常に終了します。
ところが、ブックBのコントロールから、ブックCに移り、
ここからも一度ブックBに戻って終了ボタンを押すとBブックは終了するものの、Cブックが閉じられません。なぜでしょうか?
-----Bブックのセルに貼り付けたコントロールのマクロ-----
Sub ブックCへ()
Application.ScreenUpdating = False
Dim wb As Workbook
On Error Resume Next
'開いて作業中の場合。
Set wb = Workbooks("21年計算01.xls")
On Error GoTo 0
If wb Is Nothing Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\21年計算01.xls")
End If
'開いて作業中の場合。
Workbooks("21年計算01.xls").Activate
ActiveWindow.WindowState = xlMaximized - ---最大化
Worksheets(12).Select
End Sub
-----Bブックのフォームコントロールのマクロ-----
Private Sub CommandButton5_Click()
Unload Me
ActiveWorkbook.Close SaveChanges:=True
End Sub
-----Cブックのフォームコントロールのマクロ-----
Private Sub データ入力_Click()
Unload Me
Application.ScreenUpdating = False
On Error GoTo err:
Workbooks("21年計算02.xls").Activate
Exit Sub
err:
Workbooks.Open Filename:=ThisWorkbook.Path & "\21年計算02.xls"
'''データ処理.Show
Application.ScreenUpdating = True
End Sub