Excel VBA質問箱 IV

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

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


58437 / 76738 ←次へ | 前へ→

【23029】Re:作ってみました。
発言  TAKA  - 05/3/10(木) 13:04 -

引用なし
パスワード
   G-Luckサン/ひかるサン ありがとうございます  ぺこ <(_ _)>
ひかるサンの作っていただいた物いい感じですが
コード内容がちょっと難しいです (T▽T)アハハ!


自分なりに一応何とか作ってはみました
結構理想に近い形にはなったのですが・・・
ひかるサンのみたいに範囲指定ができません
どうすればいいでしょう??

Sub 罫線()

t = InputBox("【左側余白】 数は ??")
If t = "" Then
   MsgBox "数を入力してください 初めからやり直しです"
   Exit Sub
  End If
  
x = InputBox("【上側余白】数は ??")
If x = "" Then
   MsgBox "を入力してください 初めからやり直しです"
   Exit Sub
  End If

n = InputBox("枠内の【 縦 】のcell数は ??")
If n = "" Then
   MsgBox "数を入力してください 初めからやり直しです"
   Exit Sub
   ElseIf n < 1 Then
   MsgBox " 1 以上を入力してください 初めからやり直しです"
   Exit Sub
  End If

m = InputBox("枠内の 【 横 】 のcell数は ??")
If m = "" Then
   MsgBox "数を入力してください 初めからやり直しです"
   Exit Sub
   ElseIf m < 1 Then
   MsgBox " 1 以上を入力してください 初めからやり直しです"
   Exit Sub
  End If
  

For retu = t To 43 Step 1
For gyo = x To 44 Step n

Cells(gyo + 1, retu + 1).Select
  Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  Selection.Borders(xlEdgeLeft).LineStyle = xlNone
  With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    
  End With
  Selection.Borders(xlEdgeBottom).LineStyle = xlNone
  Selection.Borders(xlEdgeRight).LineStyle = xlNone
  Selection.Borders(xlInsideVertical).LineStyle = xlNone

   Next gyo
  Next retu
  
  
For cellretu = t To 43 Step m
For Cellgyo = x To 44 Step 1

Cells(Cellgyo + 1, cellretu + 1).Select

  With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    
  End With

   Next Cellgyo
  Next cellretu

End Sub

0 hits

【22970】選択範囲内で等間隔(任意)に罫線を引く TAKA 05/3/9(水) 9:53 質問
【22996】Re:選択範囲内で等間隔(任意)に罫線を引く G-Luck 05/3/9(水) 16:59 発言
【23001】Re:選択範囲内で等間隔(任意)に罫線を引く TAKA 05/3/9(水) 17:52 発言
【23004】Re:選択範囲内で等間隔(任意)に罫線を引く G-Luck 05/3/9(水) 19:34 発言
【23007】Re:選択範囲内で等間隔(任意)に罫線を引く TAKA 05/3/9(水) 19:52 発言
【23012】Re:選択範囲内で等間隔(任意)に罫線を引く G-Luck 05/3/9(水) 21:30 回答
【23025】作ってみました。 ぴかる 05/3/10(木) 11:59 回答
【23029】Re:作ってみました。 TAKA 05/3/10(木) 13:04 発言
【23032】Re:作ってみました。 ぴかる 05/3/10(木) 14:35 発言
【23047】Re:作ってみました。 TAKA 05/3/10(木) 19:53 お礼
【23044】Re:選択範囲内で等間隔(任意)に罫線を引く BB 05/3/10(木) 18:27 発言
【23046】Re:選択範囲内で等間隔(任意)に罫線を引く TAKA 05/3/10(木) 19:50 発言

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