Excel2003VBAを勉強中の者です。早速ですが質問させて頂きます。
UserForm1にTextBox1、CommandButton1、ListBox1、Image1を配置しました。
TextBox1のTextプロパティには「C:\写真Sampleフォルダ\」と入力しております。
また、Cドライブの「写真Sampleフォルダ」にはjpg画像が複数入っております。
この状態で、以下の動作を行うことが出来るコードを作ってみました。
＊このコード自体は目的通りにちゃんと動きます。
～～実行できる動作～～
○CommandButton1を押すとListBox1に、Cドライブの「写真Sampleフォルダ」にある画像ファイル一覧が表示される。
○ListBox1の画像ファイル一覧にあるファイル名をひとつダブルクリックして、Image1に表示させる。
～～CommandButton1のクリックイベントのコード～～
Private Sub CommandButton1_Click()
Dim FilePass As String
FilePass = TextBox1.Value
Dim FileName As String
Dim i As Long
i = 1
Dim FileDate() As Variant
ReDim FileDate(1 To i) As Variant
FileName = Dir(FilePass)
Do
FileDate(i) = FileName
i = i + 1
ReDim Preserve FileDate(1 To i)
FileName = Dir()
Loop While FileName <> ""
ListBox1.List = FileDate
End Sub
～～ListBox1のダブルクリックイベントのコード～～
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim List1No As Long
List1No = ListBox1.ListIndex
Dim FileName As String
Dim FileFullPass As String
If List1No < 0 Then
MsgBox "読み込むファイルを指定して下さい"
Exit Sub
Else
FileName = Me.ListBox1.Value
End If
FileFullPass = Me.TextBox1 & "\" & Me.ListBox1
Image1.Picture = LoadPicture(FileFullPass)
End Sub
ここで更に使い易くしたく、以下の動作を追加しようと考えました。
○ブックを開いた時に同時にUserForm1を表示する。
○UserForm1が表示されたあとに続いてCommandButton1をクリックしなくてもListBox1にファイル一覧が表示される。
要は、ブックを開いたらListBox1に自動的に表示されたファイル名をダブルクリックするだけで画像が表示される状態にしたいのです。
そのため、ThisWorkbookモジュールに以下のコードを入力しました。
Private Sub Workbook_Open()
UserForm1.Show
Call CommandButton1_Click
End Sub
しかし、ここで「コンパイルエラー ＳｕｂまたはＦｕｎｃｔｉｏｎが定義されていません。」というエラーが発生します。
そこでCall CommandButton1_Clickを消してUserForm1.Showのみにして再度実行したところUserForm1の表示だけなら上手く動作しました。
調べていくうちにフォームモジュールのコードはどうやらブックモジュールでは呼び出し出来ないのかな？と思い始めたのですが本当にそうなのでしょうか？
だとすると、UserForm1がブックモジュールのUserForm1.Showとうコードで表示される事もおかしい気がしてきて分からなくなってしまいました。
なんとかしてこの動作が実行出来るようにしたく、どなたかご教示頂けます様お願い致します。
エクセル2003です。
ある集計表において
4行目のH列からAM列まで
数値データがあります。
最終行は常に変化します
この表内にてセルの値が0のセルは
セル内を空白にしたいです。
以下のマクロを作成しましたが
If Cells(処理行, 8).Value = 0 Then
Cells(処理行, 8).ClearContents
をあと(処理行, 13)から(処理行,31)
まで記述しなければなりません。
構文的にも処理的にも不利？
と思うので、なにかいい方法を教えてください。
Sub 数字0クリア()
'2012年2月3日節分
Dim 最終行
'最終列をG列で求めます
最終行 = Cells(Rows.Count, 7).End(xlUp).Row
Application.ScreenUpdating = False
For 処理行 = 4 To 最終行
If Cells(処理行, 8).Value = 0 Then
Cells(処理行, 8).ClearContents
End If
If Cells(処理行, 9).Value = 0 Then
Cells(処理行, 9).ClearContents
End If
If Cells(処理行, 10).Value = 0 Then
Cells(処理行, 10).ClearContents
End If
If Cells(処理行, 11).Value = 0 Then
Cells(処理行, 11).ClearContents
End If
If Cells(処理行, 12).Value = 0 Then
Cells(処理行, 12).ClearContents
End If
If Cells(処理行, 13).Value = 0 Then
Cells(処理行, 13).ClearContents
End If
Next 処理行
Application.ScreenUpdating = True
MsgBox "終了しました"
End Sub
private sub worksheet_change(byval Target as excel.range)
dim h as range
on error resume next
for each h in application.intersect(target, range("C:C"))
if h <> "" then
cells(h.row, "A").formular1c1 = "=COUNTA(R1C[2]:RC[2])"
cells(h.row, "B") = date
else
h.offset(0,-2).resize(1, 2).clearcontents
end if
next
end sub
このマクロはC列に入力すると、A列に番号、B列に入力した日付が入力されるマクロです。
現状の問題として、
(1)A列に計算式が入ってしまうこと
(2)C３セルに品名という項目が入っているために、C４から品目を入力していく上で、最初の割り振られるNOが２番からになってしまう
の２つの問題が生じています。これを解決するにはどのように訂正すればよいかご教授いただければ助かります。
Excel2003でマクロ作成の初心者です。
３桁または４桁の数字を時刻に変更したいです。
820→8：20 1020→10：20
ネットで捜したら、見つかりましたが、これを実行すると問題点があります。
ア）.NumberFormatLocal = "h:mm;@"を使うとエラーがでるので
実行時エラ－1004
rangeクラスの NumberFormatLocalプロパティを設定できません。
イ） .Formula = Left(t, 2) & ":" & Right(t, 2)に変更しましたが
1020はできましたが、820はできません。
'0820 とするとできます。
これを「'」をいれなくとも 8：20 のようにしたいです。
ウ）また数値を入力したセルを削除すると即座に
実行時エラー13 型が一致しません。とでます。
これを出ないようにしたいのです。
------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
t = Target.Value
'時間に変換する場所を制限します。
'デフォルトでは「A1」と「C1からD2」に入力した場合のみ処理が実行されます
If Application.Intersect(Target, Range("A1,C1:D2")) Is Nothing Then Exit Sub
'入力された数値が4桁以外の場合ははじかれます。
If Len(t) <> 4 Then Exit Sub
With Target
'セルの書式を時間に設定します。
.NumberFormatLocal = "h:mm;@"
'四桁の数字に「：」を追加します。
'この部分はほかにもいろいろな方法があると思います。ので変えてください。
.Formula = Left(t, 2) & ":" & Right(t, 2)
End With
End Sub
