Excel VBA質問箱 IV

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

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


64277 / 76732 ←次へ | 前へ→

【17036】Re:VBAでセルとセルの比較
発言  ichinose  - 04/8/20(金) 8:55 -

引用なし
パスワード
   弘美 さん、Asakiさん、おはようございます。

>早速ですがVBAでセルとセルの内容を比較する方法を調べています。
>内容だけならわかるのですがセルの内容全て(書式(網掛けの色とか文字色など)、コメントの有無、内容、)比較したいのです。
>どなたか教えてくださいませんか。 よろしくお願い致します。

Asakiさんがおっしゃっているように地道に比較をするということは
同感なんですが・・。

CallByNameという関数を使用してみると少しだけコードが簡単になるかもしれませんよ。

一例ですが、
'====================================================
Type att
  p_type As Long 'p_nameが  0:プロパティ 1:オブジェクト
  p_name As String 'プロパティ名
  sp_name As String 'p_nameがオブジェクトの場合のプロパティ名
  End Type


'====================================================
Sub Samp1()
  Dim myRange As Range
  Dim myPrName(1 To 6) As att
  Dim i As Integer
  Dim mes As String
  myPrName(1).p_name = "NumberFormatLocal"
  myPrName(1).p_type = 0
  myPrName(2).p_name = "value"
  myPrName(2).p_type = 0
  myPrName(3).p_name = "Interior"
  myPrName(3).p_type = 1
  myPrName(3).sp_name = "colorindex"
  myPrName(4).p_name = "Interior"
  myPrName(4).p_type = 1
  myPrName(4).sp_name = "PatternColorIndex"
  myPrName(5).p_name = "Font"
  myPrName(5).p_type = 1
  myPrName(5).sp_name = "ColorIndex"
  myPrName(6).p_name = "Style"
  myPrName(6).p_type = 0
  Set myRange = Selection

  For i = 1 To 6
    With myPrName(i)
      If .p_type = 0 Then
       mes = mes & .p_name & vbTab & _
         CallByName(myRange, .p_name, VbGet) & vbCr
      Else
       Set obj = CallByName(myRange, .p_name, VbGet)
       mes = mes & .p_name & "." & .sp_name & vbTab & _
         CallByName(obj, .sp_name, VbGet) & vbCr
       End If
      End With
  Next i

  MsgBox mes

End Sub

確認して下さい
0 hits

【17029】VBAでセルとセルの比較 弘美 04/8/19(木) 20:27 質問
【17031】Re:VBAでセルとセルの比較 Asaki 04/8/19(木) 23:05 発言
【17036】Re:VBAでセルとセルの比較 ichinose 04/8/20(金) 8:55 発言
【17037】Re:VBAでセルとセルの比較 IROC 04/8/20(金) 8:59 回答
【17046】Re:VBAでセルとセルの比較 弘美 04/8/20(金) 13:12 回答
【17047】Re:VBAでセルとセルの比較 IROC 04/8/20(金) 13:28 回答
【17082】Re:VBAでセルとセルの比較 ichinose 04/8/21(土) 10:30 発言
【17083】Re:VBAでセルとセルの比較 訂正 ichinose 04/8/21(土) 12:16 発言
【17166】Re:VBAでセルとセルの比較 弘美 04/8/24(火) 14:27 発言
【17167】Re:VBAでセルとセルの比較 IROC 04/8/24(火) 14:47 回答
【17245】Re:VBAでセルとセルの比較 弘美 04/8/25(水) 13:57 お礼

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