-2

Excelで以下を実現したいのですが、VBAで十分かどうかわかりません。私は 1 日自分でコーディングを試みましたが、コードを実行することができました。誰かが親切に助けてくれますか?

  1. 列 B にハード ドライブから画像を挿入し、列 A にファイル名を示します。
  2. ファイルの 2 番目のバージョンが存在するかどうかを検索します。例えば。「abc.png」を挿入した場合、「1_abc.png」が存在するかどうかを検索します。2 番目のバージョンが存在する場合は、列に色を付けます。
  3. 2つのファイルのサイズを比較して、「abc.png」と「1_abc.png」のサイズが同じでない場合は、C列にコメントを記入してください。

お手伝いありがとう!

4

1 に答える 1

0
Sub InsertIcon()'find icon and insert
Dim name As String ' file path of the pic
For a = 1 To 1000
name = Cells(a, 4).Value
'MsgBox (name)
Cells(a, 8).Select
ActiveSheet.Pictures.Insert(name).Select
Selection.ShapeRange.IncrementLeft 40
Selection.ShapeRange.IncrementTop 10
Next
End Sub

これは、挿入の問題を解決するために使用したコードです。

于 2013-06-04T03:17:42.650 に答える