Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21603 / 76733

←次へ　｜　前へ→


	【60523】Re:割り切れる数字

ichinose - 09/2/25(水) 20:39 -


	引用なし

	パスワード

▼tomako さん：
こんばんは。

>A1からE20の範囲に１～100までの数字が順に表示されています。
>その中で10で割り切れる数字のセルにのみ、記号を表示させたいのですが、
>どのようにすれば良いのでしょうか。
>１２３４５６７８９◎111213・・・という感じです。

順に並んでるなら、10で割り切れる数って、

　　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ
　１　　１　　　２　　　３　　　４　　　５
　２　　６　　　７　　　８　　　９　　１０
　３　１１　　１２　　１３　　１４　　１５
　４　１６　　１７　　１８　　１９　　２０

となって　

Ｅ２　Ｅ４　Ｅ６　Ｅ８・・・
にあるってことですか？
だったら、このセルだけ＠にすれば良いと思いますが・・・・。

仕様が違っていても以下のコードなら、10で割り切れる数が＠に置き換わります。

Sub test()
　　With Range("a1:ｅ20")
　　　 .Value = Evaluate("if(mod(" & .Address & ",10)=0,""@""," & .Address & ")")
　　End With
End Sub

3 hits

▼

【60521】割り切れる数字 tomako 09/2/25(水) 20:14