While ～ Wendを使っているのですが
途中で抜けたいです。
Sub test1()
Dim i As Long, j As Long
While i < 5
If j = 1 Then Exit Do
i = i + 1
Wend
’続きの処理
End Sub
だとエラーになるのでExit subにしていますが、
やはりWhile ～ Wendでは途中で抜けられないのでしょうか？
それと
検索したところ
http://questionbox.jp.msn.com/qa2600400.html
がヒットしたのですが
もうWhile ～ Wendは使わない方がいいのでしょうか？
もしそうなら結構な数の書き換えが必要なので
出来れば途中で抜ける方方が知りたいです。
アドバイス宜しくお願い致します。
ExcelのVBAで、選択されているシートの前後を選択するマクロとして、下記のようなものを作成してメニューボタンに割り付けて使っています。で、質問は、選択されたシートがシート見出しの真ん中になるようにすることって出来ますか？どなたか？詳しい方いらっしゃったら教えてください。宜しくお願い致します。(シートの総数は100ぐらいはあります)
Sub Sheet_Move_Right()
On Error Resume Next
ActiveSheet.Next.Select
On Error GoTo 0
End Sub
Sub Sheet_Move_Left()
On Error Resume Next
ActiveSheet.Previous.Select
On Error GoTo 0
End Sub
おくと図が表示されるマクロはできたのですが、セルの値と図のファイル名をリンクさせるまでにはいたっておらず、あきらめてしまいました。
どなたか、ご教示いただけると幸いです。
Sub setCommentToHyperLinks()
Dim myRange As Range
Dim item As Hyperlink
For Each item In ActiveSheet.UsedRange.Hyperlinks
If UCase(Right(item.Address, 3)) = "HTM" Then
Set myRange = item.Parent
With myRange
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture "C:（ここにセルのフォルダ名）\000002.gif"
End With
End If
Next
End Sub
おくと図が表示されるマクロはできたのですが、セルの値と図のファイル名をリンクさせるまでにはいたっておらず、あきらめてしまいました。
どなたか、ご教示いただけると幸いです。
Sub setCommentToHyperLinks()
Dim myRange As Range
Dim item As Hyperlink
For Each item In ActiveSheet.UsedRange.Hyperlinks
If UCase(Right(item.Address, 3)) = "HTM" Then
Set myRange = item.Parent
With myRange
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture "C:（ここにセルのフォルダ名）\000002.gif"
End With
End If
Next
End Sub
ExcelのVBAで、選択されているシートの前後を選択するマクロとして、下記のようなものを作成してメニューボタンに割り付けて使っています。で、質問は、選択されたシートがシート見出しの真ん中になるようにすることって出来ますか？どなたか？詳しい方いらっしゃったら教えてください。宜しくお願い致します。(シートの総数は100ぐらいはあります)
Sub Sheet_Move_Right()
On Error Resume Next
ActiveSheet.Next.Select
On Error GoTo 0
End Sub
Sub Sheet_Move_Left()
On Error Resume Next
ActiveSheet.Previous.Select
On Error GoTo 0
End Sub
エクセルVBAの勉強初歩のものです。
今A列に社名、B列に住所、C列に業務内容と記載されています。データは今のところ十数行です。フォームのテキストボックスでキーワードを入れて、検索ボタンを押して、A列の社名で検索してヒットすれば、社名、そのセルの右隣(B列)、その又右隣(C列)のセルの内容をフォームのテキストボックスに表示しようというものです。以下はソースの一部です。
'検索範囲設定
With Worksheets("sheet1").Range("A2:A" & Rows.Count)
If (flag = False) Or (firstRange Is Nothing) Then
'初めての検索処理
'初めての検索処理
Set c = .Find(What:=myKey, After:=.Cells(.Count), LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByColumns)
'最初の検索で見つからなければ、
If c Is Nothing Then
MsgBox "データは見つかりません", vbExclamation
Exit Sub
'最初の検索で見つかれば
Else
(1) d = c.Address
(2) Set e = d
(3) Debug.Print d.Value
(1)でヒットしたセルのアドレスをD(stringで定義)してそのまま、offset(0,1).valueとしようとしたのですが、offsetはオブジェクトでないと使用できないとの事。
だったら、eをオブジェクトで定義(dim d as object)として実行したら、= dで型が一致しませんとエラーがでました。
やりたいことは、A列で検索したセルのアドレスの把握はできているので、その右隣、そのまた右隣のセルのアドレスを取得する方法です。
もう一つやりたいことはその把握したセルのアドレスに記載されている情報を取得する方法です。(3)でも型が一致しませんとエラーが出ました。てっきり、
textbox1 = d.valueなんて感じでできるのだと思っていましたが。
おそらく方向としては間違っていないのでしょうけど、どなたか間違いと改善方法をよろしくお願いたします。
