Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9744 / 76734 ←次へ | 前へ→

【72548】Re:明細の再確認
質問  杏子  - 12/8/22(水) 6:26 -

引用なし
パスワード
   ▼UO3 さん:

おはようございます。
そうですよね。。。こんなに長いコードから絞り込むのは難しいですよね。
無理を言ってしまいすみませんでした。

ではここだけでもよろしいでしょうか。

Dim dicA As Object
  Dim dicB As Object
  Dim dicAonly As Object
  Dim dicBonly As Object
  Dim d As Variant
  Dim colA() As Variant
  Dim colB() As Variant
  Dim shA As Worksheet
  Dim shB As Worksheet
  Dim c As Range
  Dim vntTitleA As Variant
  Dim vntTitleB As Variant

ここと

headStr = vbTab & Join(WorksheetFunction.Index(sh.Range("A1", sh.Cells(1, sh.Columns.Count).End(xlToLeft)).Value, 1, 0), vbTab) & vbTab
  
  With CreateObject("VBScript.RegExp")
    x = UBound(vntT) + 1
    For x = 1 To x
      ck = vntT(x - 1)
      .Pattern = vbTab & "(" & ck & ")" & vbTab
      With .Execute(headStr)
        If .Count = 0 Then
          z = 0
        Else
          n = .Item(0).firstindex + 1
          wStr = Left(headStr, n)
          z = Len(wStr) - Len(Replace(wStr, vbTab, ""))
        End If
      End With
      
      If z = 0 Then
        MsgBox sh.Name & "のタイトル行に" & ck & "がないので処理を終了します"
        Exit Function
      End If
      v(x) = z
      sh.UsedRange.Columns(z).Interior.ColorIndex = xlNone
    Next
  End With
  
  GetCol = True
  
End Function


ここだけでも。全体ではなく大切な所だけで結構ですので。。。
よろしくお願いします。

12 hits

【72509】明細の再確認 杏子 12/8/18(土) 9:20 質問
【72511】Re:明細の再確認 UO3 12/8/18(土) 11:12 発言
【72512】Re:明細の再確認 杏子 12/8/18(土) 15:31 質問
【72515】Re:明細の再確認 UO3 12/8/18(土) 20:54 発言
【72516】Re:明細の再確認 杏子 12/8/19(日) 13:12 発言
【72517】Re:明細の再確認 UO3 12/8/19(日) 14:41 発言
【72518】Re:明細の再確認 杏子 12/8/19(日) 15:02 発言
【72520】Re:明細の再確認 UO3 12/8/19(日) 16:15 発言
【72521】Re:明細の再確認 杏子 12/8/19(日) 16:27 発言
【72523】Re:明細の再確認 UO3 12/8/19(日) 17:25 発言
【72524】Re:明細の再確認 杏子 12/8/19(日) 17:32 発言
【72525】Re:明細の再確認 UO3 12/8/19(日) 17:34 発言
【72527】Re:明細の再確認 杏子 12/8/19(日) 18:58 発言
【72528】Re:明細の再確認 UO3 12/8/19(日) 19:17 発言
【72529】Re:明細の再確認 杏子 12/8/19(日) 19:30 発言
【72533】Re:明細の再確認 杏子 12/8/20(月) 9:32 発言
【72536】Re:明細の再確認 UO3 12/8/20(月) 12:18 発言
【72537】Re:明細の再確認 杏子 12/8/21(火) 6:23 質問
【72538】Re:明細の再確認 杏子 12/8/21(火) 10:37 質問
【72539】Re:明細の再確認 UO3 12/8/21(火) 11:49 発言
【72540】Re:明細の再確認 杏子 12/8/21(火) 12:14 質問
【72541】Re:明細の再確認 UO3 12/8/21(火) 17:48 発言
【72542】Re:明細の再確認 UO3 12/8/21(火) 20:40 発言
【72543】Re:明細の再確認 杏子 12/8/21(火) 21:14 お礼
【72544】Re:明細の再確認 杏子 12/8/21(火) 22:42 質問
【72546】Re:明細の再確認 UO3 12/8/22(水) 0:50 発言
【72548】Re:明細の再確認 杏子 12/8/22(水) 6:26 質問
【72549】Re:明細の再確認 UO3 12/8/22(水) 13:59 発言
【72551】Re:明細の再確認 杏子 12/8/22(水) 15:19 お礼

9744 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free