Excel VBA質問箱 IV

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

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


5063 / 13644 ツリー ←次へ | 前へ→

【52797】この文の表記の意味を教えてください VBA健太 07/12/4(火) 13:53 質問[未読]
【52798】Re:この文の表記の意味を教えてください お願い 07/12/4(火) 14:14 発言[未読]
【52800】Re:この文の表記の意味を教えてください neptune 07/12/4(火) 14:23 回答[未読]
【52802】Re:この文の表記の意味を教えてください VBA健太 07/12/4(火) 15:33 お礼[未読]
【52801】Re:この文の表記の意味を教えてください 1or8 07/12/4(火) 15:07 発言[未読]

【52797】この文の表記の意味を教えてください
質問  VBA健太  - 07/12/4(火) 13:53 -

引用なし
パスワード
   何処かのサイトにあったシートを別ファイルにしての保存の記述で
myFolder = Application.GetSaveAsFilename(InitialFileName:="", _ FileFilter:= "エクセルファイル(*.xls),*.xls" & ",CSVファイル _(*.csv),*.csv", FilterIndex:=1)
      
      If (myFolder = "") + (myFolder = "False") Then Exit Sub
        ThisWorkbook.Sheets("Sheet3").Copy
        ActiveWorkbook.SaveAs myFolder

この表記の意味がわからなく使ってうまくいってるのですが。
どういう処理をしてるか教えていただけませんか。

どこのサイトかわからなくなってしまい、そこに質問できなくて。
すいません

【52798】Re:この文の表記の意味を教えてください
発言  お願い  - 07/12/4(火) 14:14 -

引用なし
パスワード
   ▼VBA健太 さん:
>何処かのサイトにあったシートを別ファイルにしての保存の記述で
>myFolder = Application.GetSaveAsFilename(InitialFileName:="", _ FileFilter:= "エクセルファイル(*.xls),*.xls" & ",CSVファイル _(*.csv),*.csv", FilterIndex:=1)
>      
>      If (myFolder = "") + (myFolder = "False") Then Exit Sub
>        ThisWorkbook.Sheets("Sheet3").Copy
>        ActiveWorkbook.SaveAs myFolder
>
>この表記の意味がわからなく使ってうまくいってるのですが。
>どういう処理をしてるか教えていただけませんか。
>
>どこのサイトかわからなくなってしまい、そこに質問できなくて。
>すいません

『シートを別ファイルにしての保存方法』(VBA健太)
と言うタイトルですね。
2007/12/04(火)14:01 に書き込まれているので
見つかって良かったです。

【52800】Re:この文の表記の意味を教えてください
回答  neptune  - 07/12/4(火) 14:23 -

引用なし
パスワード
   ▼VBA健太 さん:
こんにちは

>何処かのサイトにあったシートを別ファイルにしての保存の記述で
>myFolder = Application.GetSaveAsFilename(InitialFileName:="", _
>FileFilter:= "エクセルファイル(*.xls),*.xls" & ",CSVファイル _
>(*.csv),*.csv", FilterIndex:=1)

多分こちら↓が解らないのですよね     
>      If (myFolder = "") + (myFolder = "False") Then Exit Sub
もし、myFolderが""であるか、myFolder が"False"であれば
subプロシージャを抜けなさい。という命令です。

if は条件が成立するか否かで判断しますね。これはtrue,falseで考えられます。
VBAでは
falseは0
trueは-1 または、0以外
です。
例:
myFolder = "" を満たす時:True
myFolder = "false" を満たさない時 :false
を判断するとする。

このときtrueを-1,falseを0とすると
true + false = -1 + 0 = -1 即ち0以外なのでture
となり、Subを抜けます。

でも、この書き方は余り見た事ないです。
If (myFolder = "") or (myFolder = "False") Then Exit Sub
の書き方が多いのでは?


>この表記の意味がわからなく使ってうまくいってるのですが。
>どういう処理をしてるか教えていただけませんか。
>
>どこのサイトかわからなくなってしまい、そこに質問できなくて。
>すいません

【52801】Re:この文の表記の意味を教えてください
発言  1or8  - 07/12/4(火) 15:07 -

引用なし
パスワード
   ▼VBA健太 さん:
こちらのサイトですね
www.excel.studio-kazu.jp/cgi-bin/kazuwiki2.cgi?mycmd=read&mypage=[[20071129105608]]&mytime=140113

【52802】Re:この文の表記の意味を教えてください
お礼  VBA健太  - 07/12/4(火) 15:33 -

引用なし
パスワード
   ▼neptune さん:
>▼VBA健太 さん:
>こんにちは
>
>>何処かのサイトにあったシートを別ファイルにしての保存の記述で
>>myFolder = Application.GetSaveAsFilename(InitialFileName:="", _
>>FileFilter:= "エクセルファイル(*.xls),*.xls" & ",CSVファイル _
>>(*.csv),*.csv", FilterIndex:=1)
>
>多分こちら↓が解らないのですよね     
>>      If (myFolder = "") + (myFolder = "False") Then Exit Sub
>もし、myFolderが""であるか、myFolder が"False"であれば
>subプロシージャを抜けなさい。という命令です。
>
>if は条件が成立するか否かで判断しますね。これはtrue,falseで考えられます。
>VBAでは
>falseは0
>trueは-1 または、0以外
>です。
>例:
>myFolder = "" を満たす時:True
>myFolder = "false" を満たさない時 :false
>を判断するとする。
>
>このときtrueを-1,falseを0とすると
>true + false = -1 + 0 = -1 即ち0以外なのでture
>となり、Subを抜けます。
>
>でも、この書き方は余り見た事ないです。
>If (myFolder = "") or (myFolder = "False") Then Exit Sub
>の書き方が多いのでは?
>
>
>>この表記の意味がわからなく使ってうまくいってるのですが。
>>どういう処理をしてるか教えていただけませんか。
>>
>>どこのサイトかわからなくなってしまい、そこに質問できなくて。
>>すいません

ありがとうございます
If (myFolder = "") + (myFolder = "False") Then Exit Sub
"+"はORの意味だったんですね。
納得しました。

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