締切済み

エクセル　マクロで色つける　方法

2006/10/01 10:55

エクセルのマクロを始めて組み込み開始本読みながら・・・・ Sub Macro0001() Rows(5).Interior.Color = mosPattem5Percent End Sub 5行目色が黒に・・・・・・なりますこれを mosPattem5Percent　網掛け５％にしたい Rows(5).Interior.Color = mosPattem5Percent これはどう書けばいいのでしょうか？

nrb
お礼率13% (11/83)

Visual Basic
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

みんなの回答

tandes
ベストアンサー率58% (10/17)

2006/10/01 11:50 回答No.1

網掛けの場合ColorではなくてPatternではないでしょうか？ Rows(5).Interior.Color = xlGray8 xlGrayの後の数値は8,16,25,50,75 のどれかになります。網掛け5%という指定は出来ない様な気がします。

関連するQ&A

塗りつぶしのない行を非表示にするマクロ

塗りつぶしのない行を非表示にするマクロを作成したいのですが、どこが問題で実行できないのかわかりません！例えば８行目に対して実行したい場合を教えてください！ちなみに自分で作成したＶＢＡはこんな感じです。 Sub macro1() If Rows("8:8").Interior.Color = xlNone Then Rows("8:8").EntireRow.Hidden = True End If End Sub よろしくお願いします。ちなみにｅｘｃｅｌ２００７です。
excel マクロ

ＥＸＣＥＬでデータが100行の表があるとする。データのない行を削除し行を詰めるマクロは？イメージはこんな感じとおもうのでうが Sub Macro1() 'if文であるｎ行がデータがないかどうか判定ＹＥＳなら Rows("n:n").Select Selection.Delete Shift:=xlUp End Sub
Excelのマクロで現在行を指定する方法を

Excelのマクロで現在行を変えて、現在見ている行にする方法を教えてください。下記は操作を記録させて作成したものですが、これを例えば、Excelの213行で実行させると 205行に196～203行が再度追加されてしまいます。これを変えて、現在見ている例えば213行の前に196～203行を入れたいという場合はどうすればいいのでしょうか？つまり、Rows("205:205").Selectの205というのを、現在見ている行に変更できれば良いように思うのですが。よろしくお願いします。 Sub Macro3() ' Keyboard Shortcut: Ctrl+Shift+A 　　Rows("196:203").Select 　　Selection.Copy 　　Rows("205:205").Select 　　Selection.Insert Shift:=xlDown 　　ActiveWindow.SmallScroll Down:=9 End Sub
エクセル「マクロの記録」を少し直したい

マクロの記録で作った下記を Sub Macro1() Sheets("Sheet1").Select Rows("6:6").Select Selection.Copy Sheets("Sheet2").Select Rows("2:2").Select ActiveSheet.Paste End Sub 以下のように書き換えたら、2行目（Paste）がエラーになりました。 Sub ts1() Sheets("Sheet1").Rows("6:6").Copy Sheets("Sheet2").Rows("2:2").Paste End Sub セレクトしないで行ないたいのです。どう直せばいいでしょうか？
エクセルでページをコピーして貼り付けるマクロ

［sheet1］内での作業ですが… 雛形のページを１枚作成して、複数枚のページが必要になったので「マクロの記録」で１ページ分の行をコピーして、１ページの下に貼り付けてみました…で、それは実行できるのですが、３ページ目では実行できません。マクロの知識はありませんが、ページを貼り付ける行が変更できないからだなぁ～と。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Sub ページを追加() ' ' Macro1 Macro ' マクロ記録日 : 2013/12/12 ユーザー名 : エクセル-NOTE ' ' Rows("9:51").Select Selection.Copy Rows("52:52").Select ActiveSheet.Paste End Sub ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝何処でも好きな行を選択してページを増やすことはできないのでしょうか? ただ、単純にページを下へ下へと、必要な分だけ追加したいのです…が。上の「数行」は見出しに利用しています。
Excelのマクロの結合方法を教えてください

Excelのマクロを使っての処理を少しだけ使うようになりました。「これがコンピュータなの！」と一瞬で作業が進みます。(当然ですね。) ☆・・・・・☆ マクロについて学びたいので、数冊の「基本技」などの参考書籍を購入しました。でも、わかりません。現在は、「マクロの記録」で始めて「記録の終了」でマクロを記録してボタンに登録して「マクロを利用」しています。ボタンが増えてしまうのです。（泣・・・） ☆・・・・・☆ マクロの編集を開くと何にも分かりません。（Sub　Macro1）　　End Sub （Sub　Macro２）　　End Sub （Sub　Macro３）　　End Sub 　－－－－－と、作成した順にマクロが書かれていることが分かりました。　　我流でそれぞれを繋ぐと止まってしまいます。　☆・・・・・☆ このように、記録によって書かれた複数のマクロを繋げて、一個のマクロに纏める書き方のポイントを教えてください。また、このように記録されたマクロ（テンプレートでも可）の推敲（朱筆？）から入門するような参考書名をご存じでしたら具体的に教えてください。　 ☆・・・・・☆
マクロを使って・・・

シート1に入力したデータをシート2にコピーするいうマクロを作りました。シート2にコピーはできるのですが例えば、そのデータを消して再度新しいデータを入れていきたいと思いエクセル左上のシート全体を選択して「Delete」を押すと会社のエクセル（2003？）は中断モードがどーのこーのとエラー画面が出てマクロが黄色になって、前に進めません。やり方が決まっているのでしょうか? コピーした行全体を選択して右クリック「削除」とするとエラー画面が出ません。やり方など決まっているのでしょうか? ↓がんばって作ったマクロです Sub 正方形長方形4_Click() Call macro01 Call macro02 End Sub Sub macro01() Dim ws1 As Worksheet, ws2 As Worksheet Dim x As Long, y As Long Set ws1 = Sheets("Sheet1") Set ws2 = Sheets("Sheet2") x = ws2.Cells(Rows.Count, "b").End(xlUp).Row + 1 y = ws1.Cells(Rows.Count, "b").End(xlUp).Row ws1.Cells(21, "b").Resize(y, 9).Copy ws2.Cells(x, "B").PasteSpecial Paste:=xlPasteValues　　←この行が黄色になります Application.CutCopyMode = False End Sub Sub macro02() Worksheets("Sheet1").PrintOut End Sub
excelマクロ記述

ＥＸＣＥＬのＢＯＯＫがあり、ｎ枚のシートを含んでいます。 Macro１という名称のマクロで、そのBook内のすべてのシートにMacro2というマクロを実行させるという場合、Macro１はどのように書けばいいのですか。次次にシートを開くという操作をどう表すか？このMacro2では、例えばシートの文字の表示を７５％のサイズで表示のようなものを考えています。またそのときmacro2は、何か記述の追加が必要ならそれはどのようなものか。よろしくお願いいたします。 Sub Macro１(　) ' Macro1 Macro ' 次次とシートを開き、７５%サイズにするｘｘｘｘｘｘｘｘ Sub Macro2(　) ' Macro1 Macro ActiveWindow.Zoom = 75 End Sub End Sub
超初心者ですみませんが・・・

エクセルなんですが、このコーナーでチェックボックスについて教えていただいたのですが、 Private Sub CheckBox1_Click() 　　If CheckBox1 Then 　　　　Rows(1).Interior.Color = vbRed 　　Else 　　　　Rows(1).Interior.Color = xlNone 　　End If End Sub 　　　　　　↑ これについてなんですが、例えばチェックすることによって「F」の６行目まで色が着くってやりかたはどうやればよいのでしょう？これですと1行全部に色がついてしまいますので・・・。
Excelのマクロでの色の取得とループ方法

はじめまして。マクロ初心者です。 Excelのセルを使って地方別の日本地図を作成しています。イメージとしてはこれのExcel版といった感じです。 http://hp-sozai.net/tm-map/nt03.html やりたいことは、別表の数字によってこの地方を色分けするマクロの作成です。現在抱えている問題は、1.色の設定方法の改善、2.条件の設定方法の改善、3.現在のマクロの記述方法をシンプルにできないか、の3点です。マクロは現在下記のように記述しています。 Sub 地方() Hokkaido = Range("T4").Value Select Case Hokkaido Case "" Range("P4").Interior.Color = QBColor(15) Case 1 To 4999 Range("P4").Interior.Color = QBColor(11) Case 5000 To 9999 Range("P4").Interior.Color = QBColor(9) Case 10000 To 14999 Range("P4").Interior.Color = QBColor(2) Case 15000 To 19999 Range("P4").Interior.Color = QBColor(10) Case 20000 To 24999 Range("P4").Interior.Color = QBColor(14) Case 25000 To 29999 Range("P4").Interior.Color = QBColor(13) Case 30000 To 34999 Range("P4").Interior.Color = QBColor(12) End Select Tohoku = Range("T5").Value Select Case Tohoku Case 1 To 4999 Range("O8,O9,P7:P10").Interior.Color = QBColor(11) Case 5000 To 9999 Range("P4").Interior.Color = QBColor(9) Case 10000 To 14999 Range("P4").Interior.Color = QBColor(2) Case 15000 To 19999 Range("P4").Interior.Color = QBColor(10) Case 20000 To 24999 Range("P4").Interior.Color = QBColor(14) Case 25000 To 29999 Range("P4").Interior.Color = QBColor(13) Case 30000 To 34999 Range("P4").Interior.Color = QBColor(12) End Select ・・・（こを全地方分） End Sub 1.色の設定方法の改善と2.条件の設定方法の改善について：現在それぞれの地方ごとにセルA1:B7に凡例を作成しています。凡例はセルAにフォントの色指定で着色した■、セルBに0以上5000未満などの条件を入力してあります。例： A　　B ■　1以上5000未満色は上記の通りマクロで直接指定していて、この■の色を変更してもマクロの色は変わりません。これをリンクさせて、■の色が変更されたらマクロにも反映されるようにしたいと思っています。条件についても同様で、Bの値が変わったらマクロの値も変わるように設定できたらいいのですが。。 3.現在のマクロの記述方法をシンプルにできないか、について：見ての通り、今のマクロは同じ事を地方ごとに記述していて非常に長いものになっています。これをもう少しシンプルに記述できないかと思っているのですが、セルの範囲も地方によってさまざまなので上手いループが思いつかず行き詰まっています。是非アイディアをいただけるとありがたいです。どうぞよろしくお願いいたします。
マクロからマクロを呼び出す方法

ブックの中にあるマクロを呼び出すマクロを書きたいです。 Sub Macro2() 　　Application.Run "Book1!Macro1" End Sub とすると、book1のmacro1しか呼び出せませんが、マクロを書いているファイル（コピーして仮にbook2）のマクロを呼び出すにはどのように書けばよいでしょうか？（マクロブックだけ他のファイルにコピーして使う用途を想定しています。
excel マクロ

Sub Macro1() ' ' Macro1 Macro ' ' ActiveCell.Offset(-1, 0).Range("A1:G1").Select Selection.Copy End Sub マクロの記録だけでこのコードを作ることは可能でしょうか？
至急お願いします。エクセルのマクロに関してです。

かなり至急です＞＜エクセル2010のマクロの質問です。 2つ質問があります。 1つ目です。以下の一連の作業を1つのマクロで行いたいのですが、どうしたらいいでしょうか？現在は、シート1にデータがあります。 (1)選択した3列を、B~D列に移動する (2)B列に含まれるセルのうち、0（空白）でないセル数分だけシートを追加する。 (たとえば、シート1のB14~B18に数字がはいっていたら、シートを5枚追加するという感じです。) (3)B列に含まれるセルのうち、0（空白）でないセル数分に対し、2行ずつ各シートの3・4行目にコピーする。 (たとえば、シート1のB14~B18に数字がはいっていたら、シート2の3・4行にシート1の14・15行のコピーを貼り付け、シート3の3・4行にシート1の15・16行のコピーを貼り付け、シート4の3・4行にシート1の16・17行のコピーの貼り付ける・・・という感じです。) 現在は (1)Sub () Selection.Cut ActiveCell.Columns("A:C").EntireColumn.Select Selection.Cut Columns("B:B").EntireColumn.Select Selection.Insert Shift:=xlToRight End Sub (2) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets.Add Next End Sub (3) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets("Sheet1").Rows(n & ":" & n + 1).Copy _ Sheets("Sheet" & n - 252).Range("A3") Next End Sub と別々のマクロに分けてます。また(2)(3)でみられる For n = 14 To 18 ' の部分の数字は手動でいれてますが、かなり時間をくってしまうので・・・。 2つ目です。複数ブックに同じ動作をするエクセルのマクロが知りたいです。現在100ほどブック(Book1~100)を開いていて、100のブックすべてのSheet1のA1のセルに「１」と入れたいのですが、そのようなマクロはどうくんだらよろしいでしょうか。ちなみにExcel2007です。困っているので、お願いします。
マクロで教えてください。

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セルのみ色が塗られてしまうので行全体を塗るマクロを教えてください。よろしくお願い致します。
エクセルマクロで上書きして貼り付けの方法は

エクセルのマクロでコピーして貼り付けする場合、貼り付けするセルに何か入力されているとその次の行に飛んで貼り付けしてしまいます。何か入力されていても上書きで貼り付けする方法を教えてください。次のマクロを参考にお願いします。 Sub 全体名簿へ2組() ' ' 全体名簿へ2組 Macro ' ' 開始 = Range("r3").Value 終了 = Range("s3").Value Range("B" & 開始 + 1 & ":n" & 終了 + 1).Select Selection.Copy Windows("全体名簿.xlsm").Activate Sheets("★名簿").Select Range("B65536").End(xlUp).Offset(1).Select ActiveSheet.Paste End Sub このActiveSheet.Pasteを変えるとできるのかその方法がわかりません。また，貼り付けする前に選んだセル以降の行をクリアーにしてから、貼り付けすればできますがその範囲の指定の仕方はどうすればいいのでしょうか。マクロの文も教えていただきたいです。
マクロ　行の高さの変更を繰り返す

2行目から134行目までの「行の高さ」を１行おきに「4」にしたいのですが「マクロの記録ボタン」の「相対参照」で2行分を作って、繰り返してみると結合しているセルが有るせいか、2～134行目全てが「4」になってしまいます仕方ないので、ネットで調べて書いてみたのですが、 Sub Macro1() Dim i As Integer For i = 2 To 134 Step 2 Rows("i:i").RowHeight = 4 Next i End Sub こんな感じで作ったらエラーが出ましたマクロは、かなり久しぶりなので、どう書いたらいいのか教えてやって下さいませ
Excel 2007 マクロ表の貼り付け

Excel 2007 マクロ表の貼り付け Excel 2007 マクロ表の貼り付けについて教えてください。 <Sheet1>の表にあるA2からD4を <Sheet2>に値貼り付けをします。表は画像を添付します。マクロの記録では下記内容になります。 Sub Macro1() ' ' Macro1 Macro ' ' Range("A2:D4").Select Selection.Copy Sheets("Sheet2").Select Range("A2:D4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub <Sheet1>のA列の行の増減にかかわらず、<Sheet2>に貼り付けることができるようにするにはどのようにマクロを修正すればよろしいでしょうか。
エクセルシートの順繰り表示マクロについて

エクセルにて随時更新されるデータを全画面表示し、3枚のシートを5秒置きに順繰り表示させるようマクロを組みました。始めは順調なのですが、数時間たつとフリーズしてしまいます。そもそもエンドレスのマクロプログラム実行に無理があるのでしょうか。または下記のプログラムに問題があるのでしょうか。ご教授お願いします。 Sub Macro1() Sheets("Sheet2").Select Application.OnTime Now + TimeValue("00:00:05"), "Macro2" End Sub Sub Macro2() Sheets("Sheet3").Select Application.OnTime Now + TimeValue("00:00:05"), "Macro3" End Sub Sub Macro3() Sheets("Sheet1").Select Application.OnTime Now + TimeValue("00:00:05"), "Macro1" End Sub
エクセルのマクロについて教えてください。

エクセルのマクロについて教えてください。エクセルの各シートごと一気にシート保護したいという質問に対して下記の回答が来ました。 Sub macro1() ’全シート一括保護 Dim W As Worksheet For Each W In Worksheets W.Protect ("1234") ’パスワード1234 Next W End Sub Sub macro2() ’全シート一括保護解除 Dim W As Worksheet For Each W In Worksheets W.Unprotect ("1234") ’パスワード1234 Next W End Sub 上記はプログラムで全てて入力でやらないとできませんか?マクロボタンから操作して上記のように設定する方法はありませんか? 英語が苦手です。また大文字、小文字が間違っても設定はできないのでしょうか?スペースも1行あるのとないのでは意味が違うのでしょうか? 上記の意味を教えてください。宜しくお願い致します。
エクセル　VBAで複数行の選択

エクセル2002使用です。 VBAで変数を使って複数行の選択で、6行目から9行目までを選択したいのです。 sub macro2() Dim rw As Integer rw=8 Rows("rw - 2：rw + 1").Select end sub だとエラーになります。 Rows("6:9").Select のようにしたいのですがどこが悪いのでしょうか？よろしくお願いします。

エクセル　マクロで色つける　方法

みんなの回答

関連するQ&A

塗りつぶしのない行を非表示にするマクロ

excel マクロ

Excelのマクロで現在行を指定する方法を

エクセル「マクロの記録」を少し直したい

エクセルでページをコピーして貼り付けるマクロ

Excelのマクロの結合方法を教えてください

マクロを使って・・・

excelマクロ記述

超初心者ですみませんが・・・

Excelのマクロでの色の取得とループ方法

マクロからマクロを呼び出す方法

excel マクロ

至急お願いします。エクセルのマクロに関してです。

マクロで教えてください。

エクセルマクロで上書きして貼り付けの方法は

マクロ　行の高さの変更を繰り返す

Excel 2007 マクロ表の貼り付け

エクセルシートの順繰り表示マクロについて

エクセルのマクロについて教えてください。

エクセル　VBAで複数行の選択

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル マクロで色つける 方法

みんなの回答

関連するQ&A

塗りつぶしのない行を非表示にするマクロ

excel マクロ

Excelのマクロで現在行を指定する方法を

エクセル「マクロの記録」を少し直したい

エクセルでページをコピーして貼り付けるマクロ

Excelのマクロの結合方法を教えてください

マクロを使って・・・

excelマクロ記述

超初心者ですみませんが・・・

Excelのマクロでの色の取得とループ方法

マクロからマクロを呼び出す方法

excel マクロ

至急お願いします。エクセルのマクロに関してです。

マクロで教えてください。

エクセルマクロで上書きして貼り付けの方法は

マクロ 行の高さの変更を繰り返す

Excel 2007 マクロ 表の貼り付け

エクセルシートの順繰り表示マクロについて

エクセルのマクロについて教えてください。

エクセル VBAで複数行の選択

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　マクロで色つける　方法

マクロ　行の高さの変更を繰り返す

Excel 2007 マクロ表の貼り付け

エクセル　VBAで複数行の選択

カテゴリ
一覧

専門家に質問してみよう
専門家登録