- 締切済み
Excelマクロで罫線をひきたい。
papayukaの回答
- papayuka
- ベストアンサー率45% (1388/3066)
こんにちは。 罫線はこんな感じかな？ Sub Test() For i = 7 To 12 ActiveSheet.UsedRange.Borders(i).LineStyle = 1 Next i End Sub 「ランク」フィールドは、データが入ったままで列をコピーし、それぞれの列で○に置換えた後に、○以外を消す処理でいけると思います。 マクロを記録し、書きかえると良いですよ。
関連するQ&A
- アクセス97での罫線について
教えてください。 ACCESS97で一つのテーブルをEXCELにエクスポートする処理をマクロ (ワークシート変換)で作成しました。 EXCELシート上にデータはちゃんと書き込まれています。 次に、エクスポートされたEXCELのシート上に(セルすべてを囲む)罫線をつけて 見やすく表示したいと考えているのですが... マクロでもVBAでも構いません。そのようなことはできるのでしょうか？ また出来るとしたら、データの中のある項目(フィールド)が変更したら、その下の罫線は太くするといったことは可能でしょうか？ 参考HPでも構いません。宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excel エクセル で罫線のマクロ記録で困ってしまいました
エクセルであるチェックシートを作成しました。 チェック後にはセルに罫線からの「/」を挿入します。 （いつもはセルの書式設定から実施） この処理をマクロ登録し、ボタンから、「/」を 入れる処理を簡単にできるようにしました。 ところが、このボタンを押すと、 セルには「/」のみならず、「/」のまわりの「□」の枠まで 貼り付けされてしまいます。 （説明がわかりにくいかもしれません） これだと、一部が太線のセルに「/」を挿入する場合、 いちいち普通の線に変更するため、マクロを活用できておりません。 どなたかご存じの方宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル97の罫線について
EXCEL９７の罫線について教えてください。 マクロで、単純にデータのあるセルに罫線を引きたいと考えています。 ACCESSのデータをEXCELにエクスポートしてからEXCELのシートを開くので、 シートの列（横幅）はどれだけあるかわかりません。ちなみに行のマックス行の取得の仕方はわかっています。 現在、下のようなコードで５枚のシートに罫線を引いているのですが、すべてのシートが一枚目のシートの列行と同じだけ罫線が引かれてしまいます。 ========================================================== Public Sub get_keisen(sheet As String) ←シート名が引数 Set ws1 = Worksheets(sheet) '罫線を引くシート Dim maxRow As Long '最大行 Dim I As Integer Application.ScreenUpdating = False ws1.Activate 'シートの最大行を得る ws1.Activate: maxRow = ws1.Range("A65536").End(xlUp).Row 'シートの横幅を得る I = 1 'デ-タ１行目設定 Do Until Cells(1, I) = "" I = I + 1 Loop '罫線を引く範囲(全体)を選択 ws1.Activate: Range("A1:I" & maxRow).Select ～ 罫線を引く処理文 ～ end sub =========================================================== もっと簡単な方法があればその方法でかまいません。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excelで入力が反映されるものを作りたい
助けてください。 作りたいプログラムは、まずエクセルで入力画面を作ります。 (1)名前(2)生年月日(3)住所(4)備考 の入力画面がほしいです。マクロかなんかでできるでしょうか？ マクロでなくてもだれでも簡単に入力できればいいのですが・・・ その後、これらの入力がされて決定ボタンを押すと、 別シートに作成した表の中にこれらを順に表示していきたいのです。 (1)名前で入力された項目はシート２のＡ１セル (2)生年月日で入力された項目はシート２のＢ１セル (3)住所 〃 項目はシート２のＣ１セル (4)備考 〃 項目はシート２のＤ１セル に入力されるようにしたいのです。 その他、最初の入力画面に 『 』行目 という項目を作って、そこに『２』と打てばそれぞれシート２の２行目に同じことを出力したいのですがどうすればいいのでしょうか？ 手順等、作り方まで教えていただけると本当に嬉しいです。 どなたか知っている方がいましたら助けてください。 お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでマクロを作りたいのですが上手くいきません
エクセルで会社で使うファイルを作成していますが、ファイルサイズが大きくなりすぎたので、こういうマクロが作れないかと調べていたのですが、やり方がわからないので困っています。 わからないのは、入力シートのＡ列にデータを入力して、シート2のＢ列に自動的に表示する ことを自動的にやってくれるマクロです。 今はＩＦ関数をシート2に入力している状態ですが、セルに関数を入れる方法だとファイルサイズが大きくなりすぎてしまいます。 （IF関数をあらかじめ入力しておくセル数がとてもたくさんある為） なお、入力シートＡ列がブランクの場合は、シート2のＢ列には何も表示されないようにしたいです。 大変困っております。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- excelでマクロが思うように動きません
EXCELでのマクロを使った文字列検索についてお尋ねします。 EXCEL2003のシートにフォームボタンを設置し、そのボタンに 以下のマクロを設定しています。 ここから--------------------------------------------- Sub 検索() Cells.Select Application.Dialogs(xlDialogFormulaFind).Show End Sub ここまで--------------------------------------------- ボタンをクリックすると、検索ダイヤログが開き、任意の文字列を 検索できるのですが、別シートまで検索してしまいます。 【希望1】検索対象をアクティブシートのみにしたい。 表示される“検索ダイヤログ”では、以下項目が設定可能ですが、 1.検索する文字列 2.検索方向 3.対象 4.大文字と小文字を区別 5.完全に同一なセルだけを検索 6.半角と全角を区別 【希望2】変更可能な以下の項目を固定(変更できないように)したい。 2.は“列”に固定 3.は“値”に固定 4.5.6.はチェックボックスでon/offできるようになっていますが、 全てoffに固定 【希望3】出来れば検索ダイヤログには1.の“検索する文字列”欄と、 “次を検索”ボタン、“閉じる”ボタンの3つだけを表示したい。 このような希望を満たすマクロは作成可能でしょうか？ おわかりの方がいらっしゃいましたら、ご教授ください。 よろしくお願い致します。
- 締切済み
- Visual Basic
- エクセルのマクロについて
エクセルのマクロ初心者です。 マクロを使用して印刷プレビューが見れるようにしたいです。 vlookup関数を使いsheet1に入力し、sheet2,sheet3,sheet4、sheet5へデータを反映させています。 sheet1に入力画面を作成してあり、セルA2~A13に入力すればsheet2へ、セルＡ17～Ａ28はsheet3へ、セルＦ2～Ｆ13はsheet4へ、セルF17~F28はsheet5へデータを反映する作りです。 sheet2~sheet5はフォーマットを作成してあり、印刷するとＡ4で2枚印刷されるようになっています。 入力画面で入力した内容によってはＡ4用紙1枚ですむこともあります。（Ａ1～Ｍ15でＡ4用紙一枚、Ａ1～Ｍ31でＡ4用紙2枚） 教えて頂きたいことは。 ・入力画面にマクロのボタンを設置し、ボタンをクリックすると印刷プレビューが表示されるようにしたいです。 ・sheet2用、sheet3用、sheet4用、sheet5用、とボタンを設置したい。 ・印刷プレビュー後に、（実際には印刷後）に入力画面を表示したい。 ・印刷プレビューが見たいのはsheet2,sheet3,sheet4,sheet5です。 以上です。 説明が下手ですみません＞＜
- ベストアンサー
- オフィス系ソフト
- エクセルで罫線を引くとデーターを消すマクロ
あまり、マクロに詳しくなくて どうしても分からないので質問します。 １ エクセルのＡ１のセルにデーターを入れると A30迄自動的にＡ１のデーターをコピー ２ A5の下側に罫線を付けると、A6から A30まで、コピーしたデーターを消す （A5に入れる罫線は、ランダムで、A3の時もあれば、 A20の時もあります） ３ A6に違うデーターを入れると １と同じくA36までコピーする ４ ２と同じくA10の下側に罫線を付けると、 A11からA36までデーターを消す 以上のような作業でデーターを コピー、ペーストで繰り返しているのですが、 罫線を引くことを基準に、マクロで出来ないかと 思い質問します。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Excelで集計
Excelで請求書を作っています。 この請求書の集計表を自動的に別シートもしくは別ブックに作成されるようにしたいのですが、可能でしょうか？ 具体的には以下のような具合です。 1.請求書の雛型があり、金額、各項目を入力し「名前をつけて保存」で保存していく 2.金額、各項目を別シートもしくは別ブックに自動的に作成されていく 私のレベルでは例えば「sheet1」のセルA1に何らかの文字列が入るとsheet2のセルA1に同じものが作成されるが、もし、sheet2のセルA1に何らかの文字列が存在する場合、次の行（sheet2のセルA2）に作成され、さらにsheet2のセルA2にも何らかの文字列が存在したらさらに次の行…、といった感じなのですが、何か良い方法はないでしょうか？ ちなみにマクロやAccessはさっぱり分かりません。Excelで関数を駆使して出来る範囲でお願いします。 分かりにくい点があるかもしれません。その際はどしどし補足要求してください。
- ベストアンサー
- オフィス系ソフト