いつもありがとうございます。
今度は下記内容で悩んでいます。
どなたか、助けて下さい。
（したい事）
オプションボタン1を押す
セルＪ58に○をいっぱいにオートシェイプで描く
同時にセルJ62のオートシェイプがあれば消す
オプションボタン2を押す
セルＪ62に○をいっぱいにオートシェイプで描く
同時にセルJ58のオートシェイプがあれば消す
これと同じ作業ができるシートを10枚作りたいのですが・・・
各シートはリンクせず、シート内にそれぞれ２つのオプションボタンで対応したいのです。
とりあえず、下記コードを作ったのですが、他のPCですとセルからづれてしまうので
セル内に収まるような最大の○を付したいので、どなたかご教授お願い致します。
Sub (1)オプション1_Click()
ActiveSheet.Unprotect
ActiveSheet.Shapes.AddShape(msoShapeOval, 185, 628, 45.5, 14.5).Select
Selection.ShapeRange.Line.Weight = 1
Selection.ShapeRange.Fill.Visible = msoFalse
With ActiveSheet
For Each ob In .DrawingObjects
If Not Intersect(ob.TopLeftCell, .Range("J62")) Is Nothing Then
ob.Delete
End If
Next
End With
Range("J58").Select
ActiveSheet.Protect
End Sub
是非お力をお貸し下さい。
よろしくお願いします。
Windows XP
Excel2003 (VB6.0)
メイン処理が非常に時間がかかるため、フォームを表示させ
文字(Label)を点滅させて「動いている（ハングアップしていない）」ことを
使用者に伝えようとしています。
--- Form1内のコード（メイン） ---
Sub Main()
Form2.Show vbModeless
[ ～メイン処理～ ]
End Sub
--- Form2内のコード ---
Sub UserForm_Initialize()
Call Blink
End Sub
--- 標準モジュール内のコード ---
Sub Blink()
If Form2.Label1.Visible = True Then
Form2.Label1.Visible = False
Else
Form2.Label1.Visible = True
End If
Form2.Repaint
DoEvents
Application.OnTime Now + TimeValue("00:00:01"), "Blink"
End Sub
これを実行すると、メイン処理が終了した後にForm2内の文字が
点滅します。
実現したいのは「使用者が動いていることを（ハングアップしていない
ことを）確認出来る」という点です。
どうぞ よろしくお願いします。
いつもお世話になっております。
VBAの練習で以下のような構文を作成し実行すると
構文のサンプルを並べているシートでのみエラーが表示されます。
新規シートでは実行されるので、なぜなのかと思います。
変数名が重複しているということもありません。
思い当たる点がありましたら教えてください。
よろしくお願いいたします。
Sub InputBoxメソッドで選択した範囲を取得する()
Dim myselect As Range
'On Error Resume Next
Set myselect = Application.InputBox("セル範囲を選択します。", Type:=8)
If myselect Is Nothing Then Exit Sub
myselect.Value = "test"
End Sub
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とうコードで表示される事もおかしい気がしてきて分からなくなってしまいました。
なんとかしてこの動作が実行出来るようにしたく、どなたかご教示頂けます様お願い致します。
列を自動的に表示したり、非表示にするマクロを組みました。
例えばA列にあるオートシェイブXを置いて、それに以下のマクロを登録します。
Sub 表示1()
Dim col As Integer
col = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
Columns(col + 1).Hidden = False
End Sub
次に、B列に別のオートシェイブYを置いて以下のマクロを登録します。
Sub 非表示()
Dim col As Integer
col = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
Columns(col).Hidden = True
End Sub
これで、YをクリックするとB列が非表示になり、XをクリックするとB列を表示にすることができました。
ところが、このオートシェイブX、Yを別の列にコピーして使おうとすると、うまくいくときといかないときがあります。
例えば、オートシェイブXをG列にコピーしたとき、
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
の値が、７になるときと、１のままのときがあります。
オートシェイブのコピーにおいて、そのままコピーされるとき（７になるとき）と、ちょうどショートカットのようなものになるとき（１になるとき）があるようです。
両者の違い（どのようなときに違いが出るのか）についてどなたか、お教えください。
