Gizport
1 回答
0
Share (facebook)
166
view
全般

どなたか、エクセルで使うマクロをつくって頂けないでしょうか。すみませ...

どなたか、エクセルで使うマクロをつくって頂けないでしょうか。すみませんが、宜しくお願い致します。 図を添えて説明致します。表Aは、図では13行までしか有りませんが、実際は下にズラズラ―と有ります。表Bはセル番地は特定
せず任意ですが、形式は図の様に、4列10行(セル40個)で、空白セルは無く必ず、0~9の数字が入力されています。
今回は、例として、表Aの9856(今回は例として9856ですが、毎回違います)で説明します。マウスで9856をなぞって選択し、Ctrlキーを使ってG1~J10(この範囲は特定せず任意ですが、いつも4列10行(セル40個)です)をマウスでなぞって選択します。そして、マクロを実行。その結果、G1~J10の、9856各数字が入力されて有るセルに、色が付く、それが、表Cです。
表Cがそこに新しく出来上がるのでは有りません。G1~J10に色が付いた形を表示しただけです。
色のナンバーは33でお願い致します。
入力されている数字は全部文字列で、0~9までです。バージョンは2010です。
マクロの知識が無いもんで、説明が解りずらいかもしれませんが、宜しくお願い致します。
Yahoo!知恵袋 4876日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
御質問文に忠実に2つのセル範囲を指定してから実行するように作成してみました。
(ただし、一致しない部分の色は xlColorIndexNone とするよう、勝手に処理を加えています。)
参考になさってみてください。

Sub Sample()
Dim R As Range

If Selection.Areas.Count <> 2 Then
MsgBox ("2つの範囲を選択してから実行してください")
Exit Sub
End If
If Selection.Areas(1).Rows.Count <> 1 Then
MsgBox ("1つ目の範囲は1行の範囲を選択してください。")
Exit Sub
End If

For Each R In Selection.Areas(2)
If Application.WorksheetFunction.CountIf(Selection.Areas(1), R) Then
R.Interior.ColorIndex = 33
Else
R.Interior.ColorIndex = xlColorIndexNone
End If
Next
End Sub
Yahoo!知恵袋 4876日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
66
Views
質問者が納得カメラの機種名はK5ですよね? と言うよりK5以外は生産終了してますから。 私も所持してますが非常に良いカメラかと思います。 私は花をよく撮りますがやはりマクロレンズは必須かな。 極端ですがK5ボディーとマクロレンズ(4~6万円)を買う方法もあります。 予算次第ですがね。 時々蘭を撮影しますが個人的には余り良い被写体とは思えません。 撮影自体も他の花に比べて楽しくないし面白くありません(笑) ですから撮影に集中し過ぎて鑑賞が疎か・・・にはならないと思います。
4663日前view66
全般
88
Views
質問者が納得A1:A10セルを選択してコピー B1セルを選択して 右クリック[形式を選択して貼り付け] →[行列を入れ替える]にチェックを入れて[OK] A列を削除 でいいです。
4685日前view88
全般
107
Views
質問者が納得Book1で選択された範囲をBook2のアクティブなシートの同じセル位置にコピーするコード例です。 Sub コード例() Dim sh2 As Worksheet, rng As Range Workbooks("Book2.xls").Activate Set sh2 = ActiveSheet Workbooks("Book1.xls").Activate For Each rng In Selection rng.Copy sh2.Range(rng.Ad...
4693日前view107
全般
78
Views
質問者が納得条件を入力した際に「$A$1」となっていませんか? これだと、どのセルからでもA1セルの状態を見て、書式が変更されます。 もう一度、A1:J10を選択して、条件付き書式の設定ウィンドウを表示させ「$」をすべて削除してみて下さい。
4692日前view78
全般
72
Views
質問者が納得=IF(SUMPRODUCT(G10:G12*J10:J12)/3>150,"A",IF(SUMPRODUCT(G10:G12*J10:J12)/3>50,"B","C")) 三回修正--;
4691日前view72

取扱説明書・マニュアル

910view
http://fujifilm.jp/.../ff_finepixj10_mn_j101.pdf
142 ページ4.05 MB
もっと見る

関連製品のQ&A