Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5065 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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の意味だったんですね。
納得しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5065 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free