EXCEL マクロで線の色を指定する方法と必要な情報
- EXCELマクロで線の色を指定する方法について教えてください。
- マクロで線の色を指定する際に上手くいかず困っているので、解決方法を教えてください。
- 指定したい赤色を線にするためのコードを列Bのデータから取得する方法を教えてください。
- ベストアンサー
EXCEL マクロの指定の仕方
マクロで線の色を指定したいのですが、上手くいかず困っています .ForeColor.RGB = Worksheets("sheet1").Range("D1").Interior.ColorIndex 赤色を指定したいのですがBにどういうコードを入れれば良いですか？ 列Dには以下の数式を入れてあり、列Bのデーターを取得するようにしています。 列A 列B 列C 列D あ red あ =VLOOKUP(C1,A:B,2,FALSE) い green あ =VLOOKUP(C2,A:B,2,FALSE) マクロは始めたばかりで良く分からないので、他に必要な情報もわかりません 必要な情報なども併せて教えてください。 よろしくお願いします。
- butabutabutako
- お礼率83% (5/6)
- その他(Windows)
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
どこにあるどの線の色のことですか？
関連するQ&A
- EXCEL マクロの指定の仕方
マクロで線の色を指定したいのですが、上手くいかず困っています .ForeColor.RGB = Worksheets("sheet1").Range("F2").Interior.ColorIndex 赤色を指定したいのですがBにどういうコードを入れれば良いですか？ FはVlookupで列Bより色を指定するようにしています。 マクロは始めたばかりで良く分からないので、他に必要な情報もわかりません 必要な情報なども併せて教えてください。 よろしくお願いします。 Dim rngStart As Range Dim rngEnd As Range Dim BX As Single, BY As Single, EX As Single, EY As Single Set rngStart = Worksheets("sheet2").Cells.Find(What:=Worksheets("sheet1").Range("D2"), LookIn:=xlValues, LookAt:=xlWhole) Set rngEnd = Worksheets("sheet2").Cells.Find(What:=Worksheets("sheet1").Range("E2"), LookIn:=xlValues, LookAt:=xlWhole) BX = rngStart.Left BY = rngStart.Top EX = rngEnd.Left + rngEnd.Width EY = rngEnd.Top With Worksheets("sheet2").Shapes.AddLine(BX, BY + 10, EX, EY + 10).line .ForeColor.RGB = Worksheets("sheet1").Range("F2").Interior.ColorIndex .Weight = 3 .EndArrowheadStyle = msoArrowheadTriangle End With
- ベストアンサー
- Excel（エクセル）
- ＶＬＯＯＫＵＰ関数の「検索値」を範囲で指定する
エクセルのＶＬＯＯＫＵＰ関数で、通常は検索値は一意のものを指定しますが、範囲指定しているケースがありびっくりしてしまいました。これはどのようなことなのでしょうか？ Ａ Ｂ １ 品名 単価 ２ もも ２００ ３ りんご １５０ ４ みかん １００ ５ なし ８０ とあり、 Ｃ Ｄ １ 品名 単価 ２ なし ３ もも ４ みかん Ｃ列に入れた検索値で、上の表から単価を検索する場合、 通常 ＝VLOOKUP（Ｃ２，＄Ａ＄２：＄Ｂ＄５，２，ＦＡＬＳＥ）といった感じで Ｄ２のセルに打ち込み、Ｄ２のセルの場合は、「検索値はＣ２」と固定している思うのですが、 ＝VLOOKUP（＄Ｃ＄２：＄Ｃ＄４，Ａ２：Ｂ５，２，ＦＡＬＳＥ）でも 同じ結果になっています。もちろんこれをそのままＤ４までコピーしても求める通りの結果が出てきます。 検索値は、式においては必ずしも一意で指定する必要はないのでしょうか？
- ベストアンサー
- Excel（エクセル）
- EXCEL マクロ 文字列を種類分けして並べ替え
みなさんいつもいろいろ教えていただきありがとうございます。 マクロ初心者の者です。 さて、早速ですが以下の内容を実現できるマクロを 教えていただけませんでしょうか？ A 1 A********* 2 0********* 3 1********* 4 3********* 5 ****** 6 BAE****** 7 BSE****** ・A列に上記のような文字列が入力されています。 （※注文番号）（数十～最大100行くらいまで） *にはランダムに数字が入ります。 A列の並び順、数はランダムです ・B列にはA列からVLOOKUPを使って得た日付（納期）が入ります。 例（B1セル）⇒=VLOOKUP(A1,納期リスト,2,FALSE) 結果 2/20 と表示されている ・C列にはA列からVLOOKUPを使って得た、客先名が入ります。 例（C1セル）⇒=VLOOKUP(A1,納期リスト,3,FALSE) 結果 ***商店 などと表示されている ■この場合に、アルファベット3文字から始まるA6,A7の種類の 注文番号"以外"を削除し、B列の日付の昇順に、 残った注番を並べ替えたいです。 お手数ですが、ご指導よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロをすっきりさせたい・・・
いつもお世話になっております。 下記、マクロを組んだのですが、 簡潔にまとめるには、どうしたら良いでしょうか・・・ 宜しくお願い致します。 Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000") ThisWorkbook.Activate 列番号 = 7 検索値 = (Worksheets("B").Range("B24")) Range("D14").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False) Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000") ThisWorkbook.Activate 列番号 = 7 検索値 = (Worksheets("B").Range("B25")) Range("D15").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False) Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000") ThisWorkbook.Activate 列番号 = 7 検索値 = (Worksheets("B").Range("B26")) Range("D16").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)
- ベストアンサー
- オフィス系ソフト
- Excelの関数またはマクロを教えて下さい。
Exsel2000の関数で、現在以下の関数まで出来たのですが、これを応用して検索値「A1」を２つのセル「A1＆B1」にしたいのですが、どうすればよいのでしょうか？どなたか方法を教えて下さい。 =VLOOKUP(A1,Sheet1!$A$1:$E$2000,4) 上記の関数から判るように、これは 例えばSheet2のC1のセルにこの式を入れる場合、A1と同じ内容の値を、Sheet1のA列から検索して、そして同じ行のSheet1のD列の値をSheet2のC1のセルに返すという関数です。 これを応用して、「A1と同じ内容…のA1を、A1＆B1の２つが一致するセルを検索して、同じ列のSheet1のD列の値をSheet2のC1のセルに返すという関数にしたいのです。 どなたかおわかりになる方がおりました宜しくお願いいたします。 また、マクロを使う方法でも良いのですが、当方マクロは詳しくないので出来るだけ判りやすくお願いいたします。
- ベストアンサー
- 会計ソフト
- エクセルマクロで
いつもお世話になります mythism様に教えていただいた下記マクロについて もう１つ教えていただきたいのですが t = 3 While Cells(t, 3).Value <> "" t = t + 1 Wend If 1 < t Then Range("c3:n" & Trim(Str(t - 1))).Locked = True End If Range("c" & Trim(Str(t)) & ":n" & Trim(Str(t + 99))).Locked = False Range("c" & Trim(Str(t)) & ":n" & Trim(Str(t))).Interior.ColorIndex = 36 最後の行に黄色の塗りつぶしをしてうまくいきました 塗りつぶしの次の行のＥ列に Range("E19").Select １９行になったとして ＶＬＯＯＫＵＰをいれたいのですが ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],漁師名!R2C3:R31C4,2,FALSE)" Range("E19").Selectの部分は どうしたらいいでしょうか よろしくお願いいたします
- ベストアンサー
- Visual Basic
- 度々エクセルマクロで質問です
前回は皆様有り難うございました。 度々で申し訳ございません。 前回、エクセルマクロで、仮に columns("C:C").interior.colorindex = xlnone cnt = 1 temp = range("a1").value cells(cnt,3).resize(temp).interior.colorindex = 3 cnt = cnt + temp temp = range("a2").value cells(cnt,3).resize・・・・・ というマクロを教えて頂きました。 この状態ではＡ列の数字の分だけ、Ｃ列のセルを色分け できる訳ですが、この色分けと同じ範囲のセルをＤ・Ｅ 列にて罫線を引きたいのですが（範囲内すべてのセルの下線及びＥ列のセルの右側に縦線）このマクロにどのような マクロを追加すべきなのでしょうか？ 変な質問ですみません。 初心者なので教えて下さい。
- ベストアンサー
- オフィス系ソフト
- Excel INDIRECT
お世話になります。 INDIRECT関数で、 =INDIRECT("A1")は、=A1と同じように、A1セルを参照しますが、 =VLOOKUP(A1,B1:C19,2,FALSE)を、＝=INDIRECT("VLOOKUP(A1,B1:C20,2,FALSE)”）で囲むと#REF!エラーになります。 目的は、A2セルにSheet2!B1:C20の範囲を示す文字列を入れて、=INDIRECT("VLOOKUP(A1,"&A2&",2,FALSE)”）としたいと思っています。 #REF!エラーの原因を教えていただけないでしょうか。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- マクロで教えてください。
sheet1のA列にある図番を参照しsheet2のA列の機種名に適合する行全体に sheet1のB列にある色を塗りたいのですが、マクロを教えていただけますでしょうか？ sheet2のBのセル色を塗るマクロはわかりました。↓です。 Sub macro1() Dim c As Range, myR As Variant With Sheets("Sheet2") For Each c In .Range("a2", .Cells(Rows.Count, "a").End(xlUp)) myR = Application.Match(c.Value, Sheets("sheet1").Columns(1), 0) If Not IsError(myR) Then c.Offset(, 1).Interior.ColorIndex = Sheets("sheet1").Cells(myR, "B").Interior.ColorIndex End If Next End With End Sub 上記マクロですとBセルのみ色が塗られてしまうので行全体を塗るマクロを教えてください。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ 足し算
いつもお世話になります。マクロ勉強中の初心者です。 マクロの足し算を教えてください。 A列 B列 C列 ・・・・ １ ２ ３ ４ ５ ６ ７ ８ ９ という数字のデータがあります。 これらのA列の合計、B列の合計・・・など列の合計を出すマクロはわかるのですが、 作成したVBA Range("a4") = Application.WorksheetFunction.Sum(Range("a1:a3")) A列の合計（A1～A３）とB列の合計（B1～B３）とC列（C1～C３）の合計を、D４に合計させる方法を 教えてください。 どうぞよろしくお願いします。
- ベストアンサー
- その他MS Office製品
お礼
ありがとうございます。 言葉で説明できないので画像を添付しようと思ったのですが 質問をするときにすべきでした。 一度締め切らせていただき、画像付きで質問をやり直します。 ありがとうございました。