Excel VBA質問箱 IV

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

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


5959 / 76732 ←次へ | 前へ→

【76377】Re:[無題]
発言  γ  - 14/11/10(月) 7:06 -

引用なし
パスワード
   > sh.Range(obj.Offset(0, -3), obj.Offset(0, 10)).Select 'エラーが出る
> With Selection.Borders(xlEdgeBottom)
>   .LineStyle = xlContinuous
>   .Weight = xlMedium
> End With
Selectは使わずに、↓のようにしては?
With sh.Range(obj.Offset(0, -3), obj.Offset(0, 10)).Borders(xlEdgeBottom)
  .LineStyle = xlContinuous
  .Weight = xlMedium
End With
2 hits

【76375】[無題] ペンネーム船長 14/11/9(日) 23:57 質問[未読]
【76376】Re:[無題] γ 14/11/10(月) 0:10 発言[未読]
【76377】Re:[無題] γ 14/11/10(月) 7:06 発言[未読]
【76381】Re:[無題] γ 14/11/11(火) 22:38 発言[未読]
【76382】Re:[無題] ペンネーム船長 14/11/12(水) 0:15 発言[未読]
【76383】Re:[無題] γ 14/11/12(水) 6:13 回答[未読]
【76390】Re:[無題] ペンネーム船長 14/11/14(金) 0:11 お礼[未読]

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