Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3297 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63163】罫線が引けません iijima 09/10/12(月) 11:09 質問[未読]
【63164】Re:罫線が引けません りん 09/10/12(月) 12:35 回答[未読]
【63165】Re:罫線が引けません iijima 09/10/12(月) 13:43 お礼[未読]
【63163】罫線が引けません
質問  iijima  - 09/10/12(月) 11:09 -
引用なし
パスワード
   こんにちは

WEB(asp.net）でvbscriptを使って、createobjectして
excelapplicationをopenしています

シートに罫線を書くことができません

　　　　　　With xl.ActiveSheet.Range( xl.Cells(sel,col), _
　　　　　　　　　　xl.Cells(sel + excelsel, col + excelline)).Borders
　　　　　　　　　　.LineStyle = xlContinuous
　　　　　　End With

.vbsのvbscriptのバッチファイルではうまくいくのですが．．

宜しくお願いします
【63164】Re:罫線が引けません
回答  りん E-MAIL  - 09/10/12(月) 12:35 -
引用なし
パスワード
   iijima さん、こんにちわ。

>シートに罫線を書くことができません
>
>　　　　　　With xl.ActiveSheet.Range( xl.Cells(sel,col), _
>　　　　　　　　　　xl.Cells(sel + excelsel, col + excelline)).Borders
>　　　　　　　　　　.LineStyle = xlContinuous
>　　　　　　End With
確か、xlContinuous等の定数も使えなかったような。
なので、直接指定してみてください。
例）
With sht.Range("A1:C10").Borders
　　.LineStyle = 1 ' =xlContinuous
　　.Weight = 2 ' =xlThin
End With

（参考）
定数を使えるようにする方法みたいです。
ht　tp://www.happy2-island.com/vbs/cafe02/capter00109.shtml
【63165】Re:罫線が引けません
お礼  iijima  - 09/10/12(月) 13:43 -
引用なし
パスワード
   ▼りん さん：
>iijima さん、こんにちわ。
>
>>シートに罫線を書くことができません
>>
>>　　　　　　With xl.ActiveSheet.Range( xl.Cells(sel,col), _
>>　　　　　　　　　　xl.Cells(sel + excelsel, col + excelline)).Borders
>>　　　　　　　　　　.LineStyle = xlContinuous
>>　　　　　　End With
>確か、xlContinuous等の定数も使えなかったような。
>なので、直接指定してみてください。
>例）
>With sht.Range("A1:C10").Borders
>　　.LineStyle = 1 ' =xlContinuous
>　　.Weight = 2 ' =xlThin
>End With
>
>（参考）
>定数を使えるようにする方法みたいです。
>ht　tp://www.happy2-island.com/vbs/cafe02/capter00109.shtml

たびたび、ありがとうございます

本当に、感謝感謝です
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3297 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free