Excel VBA質問箱 IV

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

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


12448 / 13646 ツリー ←次へ | 前へ→

【10391】表の作成 peppu 04/1/23(金) 13:19 質問
【10392】Re:表の作成 INA 04/1/23(金) 14:04 回答
【10394】Re:表の作成 peppu 04/1/23(金) 15:10 質問
【10395】Re:表の作成 peppu 04/1/23(金) 15:47 質問
【10398】Re:表の作成 INA 04/1/23(金) 16:22 回答
【10397】Re:表の作成 INA 04/1/23(金) 16:21 回答
【10447】Re:表の作成 peppu 04/1/27(火) 10:36 質問
【10448】Re:表の作成 INA 04/1/27(火) 10:56 回答
【10449】Re:表の作成 peppu 04/1/27(火) 11:09 お礼
【10451】Re:表の作成 Jaka 04/1/27(火) 12:07 回答
【10453】Re:表の作成 INA 04/1/27(火) 12:42 回答
【10466】Re:表の作成 peppu 04/1/28(水) 11:35 お礼

【10391】表の作成
質問  peppu  - 04/1/23(金) 13:19 -

引用なし
パスワード
   例えば、セルのC1に24と打ち込むと、E〜Iの7から24マス分の罫線を引き、なおかつ、12区切りで、太線にしたいのですが、可能でしょうか?教えてください。

【10392】Re:表の作成
回答  INA  - 04/1/23(金) 14:04 -

引用なし
パスワード
   可能です。

罫線を引くマクロは
マクロの自動記録
で出来ると思います。

自動作成したマクロコードを編集して
範囲の指定をセルC1を参照するようにすればよいのです。

【10394】Re:表の作成
質問  peppu  - 04/1/23(金) 15:10 -

引用なし
パスワード
   INAさん、度々ありがとうございます!
先ほどの質問の内容は、マクロを使わなくてもできますか?VBAを学び始めてまだ日が浅いので、いろいろなコードを試してみたいのですが、どうでしょうか?

【10395】Re:表の作成
質問  peppu  - 04/1/23(金) 15:47 -

引用なし
パスワード
  
>INAさん、度々ありがとうございます!
>先ほどの質問の内容は、マクロを使わなくてもできますか?VBAを学び始めてまだ日が浅いので、いろいろなコードを試してみたいのですが、どうでしょうか?

上記で書き忘れたのですが、罫線の追加と共に、書式もコピーしたいです!

【10397】Re:表の作成
回答  INA  - 04/1/23(金) 16:21 -

引用なし
パスワード
   一般機能で出来るかは分かりません。一般操作にあまり詳しくないので・・

条件付き書式で出来るかどうかだと思いますが・・

【10398】Re:表の作成
回答  INA  - 04/1/23(金) 16:22 -

引用なし
パスワード
   >上記で書き忘れたのですが、罫線の追加と共に、書式もコピーしたいです!

こうなるとマクロの範疇でしょう。

【10447】Re:表の作成
質問  peppu  - 04/1/27(火) 10:36 -

引用なし
パスワード
   ▼INA さん:
>一般機能で出来るかは分かりません。一般操作にあまり詳しくないので・・
>
>条件付き書式で出来るかどうかだと思いますが・・


ありがとうございます、早速試してみます!と言いたいところなのですが、条件付き書式の使い方が分かりません。教えていただけませんか?

【10448】Re:表の作成
回答  INA  - 04/1/27(火) 10:56 -

引用なし
パスワード
   >条件付き書式の使い方が分かりません。教えていただけませんか?

私は説明できるほど一般操作(数式)にあまり詳しくないのです。
今回のような場合に「条件付き書式」で対応できるか判断もできないですし・・

他の回答者の方々が来てくれるまで、待ってみましょう。
すみません。(_ _)

【10449】Re:表の作成
お礼  peppu  - 04/1/27(火) 11:09 -

引用なし
パスワード
   ▼INA さん:
>>条件付き書式の使い方が分かりません。教えていただけませんか?
>
>私は説明できるほど一般操作(数式)にあまり詳しくないのです。
>今回のような場合に「条件付き書式」で対応できるか判断もできないですし・・
>
>他の回答者の方々が来てくれるまで、待ってみましょう。
>すみません。(_ _)

いえいえそんな、いつもお世話になってる身なので。待ちます!

【10451】Re:表の作成
回答  Jaka  - 04/1/27(火) 12:07 -

引用なし
パスワード
   各セルの条件書式にて
数式が =$C$1=24 と記入後、そのセルでやりたい罫線のパターンを選んでいく。
97だと太線は、候補に有りませんでした。
また、書式はせいぜい太字、斜めにするか程度しかありませんでした。

【10453】Re:表の作成
回答  INA  - 04/1/27(火) 12:42 -

引用なし
パスワード
   1.ALT+F11キーで、VBEを起動
2.プロジェクトウィンドウのSheet1 を Wクリック
3.中央の真っ白なウィンドウ(コードウィンドウ)に以下のコードをコピペ

(注)もし、動かないときは、デザインモードになっていないか確認する。


Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range

  If Target.Address <> Range("C1").Address Then Exit Sub
  If Target.Value < 1 Or Target.Value > 65500 Then Exit Sub
  
  'クリア
  Range("E8:I65536").ClearFormats
  Range("E8:I65536").ClearContents
  
  '罫線
  On Error Resume Next
  Set myRange = Range("E7:I7")
  
  With myRange.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With myRange.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With myRange.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With myRange.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With myRange.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  With myRange.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With
  
  'コピー
  myRange.Copy myRange.Resize(Range("C1").Value)
  
  On Error GoTo 0
End Sub

【10466】Re:表の作成
お礼  peppu  - 04/1/28(水) 11:35 -

引用なし
パスワード
   無事解決しました!INAさんJakaさんありがとうございました!!

12448 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free