VBA初心者です。
特定範囲で、エンターキーの際にアクティブセルが横方向に移動するマクロを作っています。
しかしプロシーシャが一杯である旨の表示が出てしまいます。
そのプログラムの一部を抜粋します。
Case "B50"
Range("C50").Select
Case "C50"
Range("D50").Select
Case "D50"
Range("F50").Select
Case "F50"
Range("G50").Select
Case "G50"
Range("I50").Select
Case "I50"
Range("J50").Select
Case "B51"
Range("C51").Select
Case "C51"
Range("D51").Select
Case "D51"
Range("F51").Select
Case "F51"
Range("G51").Select
Case "G51"
Range("I51").Select
Case "I51"
Range("J51").Select
Case "B52"
Range("C52").Select
Case "C52"
Range("D52").Select
Case "D52"
Range("F52").Select
Case "F52"
Range("G52").Select
Case "G52"
Range("I52").Select
Case "I52"
Range("J52").Select
Case "B53"
Range("C53").Select
Case "C53"
Range("D53").Select
Case "D53"
Range("F53").Select
Case "F53"
Range("G53").Select
Case "G53"
Range("I53").Select
Case "I53"
Range("J53").Select
これが結構ながく続いております。
Caseの省略方法があればご教授いただければと思います。
なのとぞよろしくお願いします。
先日、ＯＫWAVEのサイトでエクセルマクロの質問をさせていただき
下記の回答を活用したいのでしが
myKey = Worksheets("Sheet2").Range("A1").ValueをＡ１Ａ２・・・Ａ５０のように
50個を一度に処理したいのですがどのように変更すればよろしいのでしようか
自分なりに調べてみましたが知識がなくできませんでした
ご回答のいただいたmitarashiさんにお聞きしたいのですがお聞きする手段がわからず
再度、質問させていただきます。
宜しくお願いいたします。
Sub test()
Dim targetRange As Range
Dim buf As Variant
Dim i As Long, j As Long, myColorIndex As Long
Dim myKey As Variant
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set targetRange = Worksheets("Sheet1").Range("J10:BB10000")
buf = targetRange
myColorIndex = 4
myKey = Worksheets("Sheet2").Range("A1").Value
With targetRange
For i = 1 To UBound(buf, 1)
For j = 1 To UBound(buf, 2)
If buf(i, j) = myKey Then .Cells(i, j).Interior.ColorIndex = myColorIndex
Next j
Next i
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
VBAは、全くの初心者で、テキスト等のサンプルコードを参照して書いているのですが
期待通りの動きをしないので、教えてください。
やりたい事は、Excelファイル（A-Fカラム、400行程度）を
1行ページのワードに変換し、400枚のワードファイルを作成します。
その際に、添付画面のように、各カラムを、タイトル、連番、内容などと区分けをして
フォントも変えたいです。
下のコードでは、転送は、出来るのですが、1行1ページにならず、また、
エクセルの枠も転送されてしまいます。
ワードVBAも試したのですが、特定文字での検索が難しく、各ページでの
改行位置が異なるため、自分の理解では出来ませんでした。
ワードでテンプレートを作って、Excel VBAから差込になるのでしょうか？
よろしくお願い致します。
Sub CopyExcelDataToWord()
Dim wsSource As Excel.Worksheet
Dim cell As Excel.Range
Dim collUniqueHeadings As Collection
Dim lngLastRow As Long
Dim i As Long
Dim appWord As Word.Application
Dim docWordTarget As Word.Document
Set wsSource = ThisWorkbook.Worksheets(1)
With wsSource
lngLastRow = .Range("A" & Rows.Count).End(xlUp).Row
Set collUniqueHeadings = New Collection
For Each cell In .Range("A2:A" & lngLastRow)
On Error Resume Next
collUniqueHeadings.Add Item:=cell.Value, Key:=cell.Value
On Error GoTo 0
Next cell
End With
Set appWord = CreateObject("Word.Application")
With appWord
.Visible = True
Set docWordTarget = .Documents.Add
.ActiveDocument.Select
End With
For i = 1 To collUniqueHeadings.Count
With wsSource
.Range("A1").AutoFilter Field:=1, Criteria1:=collUniqueHeadings(i)
.Range("A1:D" & lngLastRow).Copy
End With
With appWord.Selection
.PasteExcelTable linkedtoexcel:=False, wordformatting:=True, RTF:=False
.TypeParagraph
End With
Next i
For i = 1 To collUniqueHeadings.Count
collUniqueHeadings.Remove 1
Next i
Set docWordTarget = Nothing
Set appWord = Nothing
End Sub
部分一致検索のシステムを作ろうと考えているのですが、途中が任意のものを含む部分一致検索が実装できないので、助言をお借りしたいです。
例えばこんなのです↓
本文（Sentence)
The apple which he points is red.
フレーズ(pattern)
The apple ～ is red
この場合The apple ～ is red という流れのフレーズが本文に含まれているので、変数Sentenceに変数patternが含まれると判定し、true結果を示したいです。
result = "aBBBa" Like "a*a"のようにlike文が有用かなとも思ったのですが、文字列を直接入れるような形でないとできないようなので、これでは実用性に欠けてしまいます（複数のフレーズの判定ができないので）
変数に対応した形で実装したいです。
よろしくお願いします。
VBScriptで開発をしています。
文字列からドメインだけを取得したくて、ネットで調べて以下のような
コードを書いてみましたが、うまくいきません。
正規表現がうまくマッチしてこないようなのですが、初心者故よくわからず…。
おかしい点、修正すべき点を教えていただけないでしょうか。
Dim reg
Set reg = Server.CreateObject("VBScript.RegExp")
reg.Pattern = "/^[httpsfile]+:\/{2,3}([0-9a-zA-Z\.\-:]+?):?[0-9]*?\//i"
Dim testUrl
testUrl = "http://www.test.co.jp/test.html"
Set Matches = ObjRegExp.Execute(testUrl)
Dim Matches
Dim Match
Dim StrTest
For Each Match in Matches
StrTest = Match.value
Next
