Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10436 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21942】セルの左に実線を入れたい にしもり 05/2/4(金) 14:09 質問[未読]
【21944】Re:セルの左に実線を入れたい ぴかる 05/2/4(金) 14:50 発言[未読]
【21977】Re:セルの左に実線を入れたい YN61 05/2/5(土) 18:23 発言[未読]
【21942】セルの左に実線を入れたい
質問  にしもり  - 05/2/4(金) 14:09 -
引用なし
パスワード
   こんにちは。
特定の範囲のセルの左に実線を入れたいのですが、下記の3行目でエラーになります。
　　Range("AD3:AD500").Select
　　With Selection.Borders(xlEdgeLeft)
　　　　.LineStyle = xlContinuous
　　　　.Weight = xlThin
　　　　.ColorIndex = xlAutomatic
　　End With
どこが悪いか、どなたかご教授くださいませんでしょうか。
【21944】Re:セルの左に実線を入れたい
発言  ぴかる  - 05/2/4(金) 14:50 -
引用なし
パスワード
   にしもりさん、こんにちは。

こちらでは、問題ありませんよ。ちゃんと線を引いてくれました。
【21977】Re:セルの左に実線を入れたい
発言  YN61  - 05/2/5(土) 18:23 -
引用なし
パスワード
   ▼にしもり さん：
>こんばんは。

>特定の範囲のセルの左に実線を入れたいのですが、下記の3行目でエラーになります。
>　　Range("AD3:AD500").Select
>　　With Selection.Borders　　　'→(xlEdgeLeft)不要です
>　　　　.LineStyle = xlContinuous
>　　　　.Weight = xlThin
>　　　　.ColorIndex = xlAutomatic
>　　End With

どこが悪いか、どなたかご教授くださいませんでしょうか。
Bordersに限定させないようにすると出来ますが。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10436 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free