excelのマクロ

質問

現在、ＥＸＣＥＬで届出書を作っています。
自動マクロでマクロも一部組んでいますが
「参照元のファイルのシートのセルが”男”だったら
別のシートの指定のセルに丸を打つ」という内容をマクロ化したいのですがわかりません。
ご教授いただきたくよろしくお願いいたします。

回答No.4

imogasi

#3のものです。
＞AY43の上に円を描くです
マクロの記録を取って考えましたら
Sub Macro1()
Range("c4") = 1234
Range("c4").HorizontalAlignment = xlCenter
t = Range("c4").Top
l = Range("c4").Left
h = Range("c4").Height
w = Range("c4").Width
ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, w, h).Select
Selection.ShapeRange.Fill.Transparency = 0#
End Sub
で上手く行くと思います。C4をAY43で置換えてください。
Range("c4") = 1234は私のテスト用で、本番では不要で省いてください。
また
dim sh as Worksheet
set sh=Workbooks("資格喪失届.XLS").sheets(7)
をいれ、
「sh.」を上記コードのRange("AY43")(変更後）の前に
みんなつけてください。
いまはテストデータが無いので、他のブックのセルをみる
部分は省略しますがよろしく。

お礼

ありがとうございます．
”AY43の上に円を描く”できました。
参照マクロ：「”喪失データ.XLS"の"DATA"のAG2に男という文字が入っていたら・・・」も教えていただきたいのですが・・・
表上で男女の区別をつけたくてこのマクロを考えています．
宜しくお願いします．

回答No.3

imogasi

＃１の方と同感です。質問する時は、「ファイル」と「シート」は、はっきり分かるように、表現してください。
それとシートも同一シート上かどうか。
ファイル＝別BOOKを指すと考えて表現頂いたほうが良いと
思います。それとVBAのコーディング解答を期待するなら
具体的にシート名、行と列を決め、値は数値か文字かなどは具体的に書いて欲しい。面倒でしょうが、仕事上の関係で、実際を出せない時は名前等は少し変えるとかして欲しい。

お礼

ありがとうございます．

補足

質問が明確でなく申し訳ありません．
シートは別で、それぞれ別のブックです．
また、マルを打つというのは「円を描く」と描くべきでした．セルに入力するのではなくセルに入力されている”男”という文字を○で囲みたいのです．
条件のシートは”喪失データ.XLS"の"DATA"のAG2
円を描きたいシートは"資格喪失届.XLS"の"7枚目"のAY43
です。
”喪失データ.XLS"の"DATA"のAG2に男という文字が入っていたら、"資格喪失届.XLS"の"7枚目"のAY43の上に円を描くです。AY43には”5”という文字が入力されておりこれを囲みたいのです.
宜しくお願いします.

回答No.2

papayuka

こんにちは。

マクロなんて使わず、関数で良いような気がしますが、、、

=IF('C:\[Ａ.xls]Sheet1'!A1="男","○","")

お礼

ありがとうございます．

補足

ありがとうございます.
セルに入力するのではなく、セルに入力されている文字を円で囲みたいのです.

回答No.1

wildcard

> 「参照元のファイルのシートのセルが”男”だったら
> 別のシートの指定のセルに丸を打つ」

とありますが、参照元ファイルと、マクロによって値を代入するファイルは、別ファイルと言う意味でしょうか？もしそうならば、参照元ファイルは、複数なのか、単一のファイルなのかも教えてください。

お礼

ありがとうございます．

補足

質問が明確でなく申し訳ありません．
シートは別で、それぞれ別のブックです．
また、マルを打つというのは「円を描く」と描くべきでした．セルに入力するのではなくセルに入力されている”男”という文字を○で囲みたいのです．
条件のシートは”喪失データ.XLS"の"DATA"のAG2
円を描きたいシートは"資格喪失届.XLS"の"7枚目"のAY43
です。
”喪失データ.XLS"の"DATA"のAG2に男という文字が入っていたら、"資格喪失届.XLS"の"7枚目"のAY43の上に円を描くです。AY43には”5”という文字が入力されておりこれを囲みたいのです.
宜しくお願いします.