Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
47 / 13618 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【82101】Excelファイルの特定列をvbsで非表示にしたい やんまー 22/12/4(日) 17:20 質問[未読]
【82102】Re:Excelファイルの特定列をvbsで非表示に... ノエル 22/12/6(火) 0:55 発言[未読]
【82103】Re:Excelファイルの特定列をvbsで非表示に... ノエル 22/12/6(火) 1:09 発言[未読]
【82101】Excelファイルの特定列をvbsで非表示にし...
質問  やんまー  - 22/12/4(日) 17:20 -
引用なし
パスワード
   もしかしたらカテゴリー違いの質問かもしれません。
特定のExcelファイルをvbsにドラックアンドドロップしてそのExcelファイルの特定列を非表示にするvbsを組みたいのですが、vbsについての理解が浅くできません。
毎回vbsのコードを新しいExcelファイルにコピペして作動させるより、vbsの方がよい気がしたためvbsでできないかを模索中です。
条件としては特定列は毎回Excelファイルごとに違うわけではなく一緒です。
例としてA列、F列、Q列、AA列〜AX列までを非表示にしたい
こんな感じです。

カテゴリー違いで申し訳ございませんが、お力を貸していただけないでしょうか、、、よろしくお願いいたします。
【82102】Re:Excelファイルの特定列をvbsで非表示...
発言  ノエル  - 22/12/6(火) 0:55 -
引用なし
パスワード
   >毎回vbsのコードを新しいExcelファイルにコピペして作動させるより

そのExcelファイルを残しておけば済む話では？
どんな風に処理しているのか解りませんが。
バイバイ。

Set oArgs = WScript.Arguments

If oArgs.Count <> 1 Then
　 WScript.Quit
End If

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(oArgs(0)) Then
　 xlFile = oArgs(0)
End If

Set fso = Nothing
Set oArgs = Nothing

if xlFile = "" then WScript.Quit

if right(xlFile,3) = "xls" then
　 msgbox "エクセル" & vblf & xlFile
else
　 msgbox "エクセル以外"
end if
【82103】Re:Excelファイルの特定列をvbsで非表示...
発言  ノエル  - 22/12/6(火) 1:09 -
引用なし
パスワード
   ああ、それとここからコピペすると
左側にタブみたいなのが付加されるので
そのままだとエラーになります。
タブ？を消してくださいな。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
47 / 13618 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free