- ベストアンサー
VBでのＧＯＴＯ文はできますか？
miz-fuyuの回答
- miz-fuyu
- ベストアンサー率8% (1/12)
ＧＯＴＯ文を使った場合はこうなりますが…先の方の回答のとおり使用はあまりオススメは出来ません。 現在のVisualBasicは構造化記法で記述することが一般的でありこれらから外れるGoto文やGoSub文はソースの複雑化を招くためあまり使用しません。 先の方の言われるとおりIFやSwitchのみで記述するほうが良いと思います。 Public Sub main() If Cells(1, 1) = -1 Then GoTo Yellow_Exe ElseIf Cells(1, 1) = 0 Then GoTo Red_Exe ElseIf Cells(1, 1) = 1 Then GoTo Blue_Exe End If Exit Sub Yellow_Exe: '黄色色づけ処理の記入 Exit Sub Red_Exe: '赤色色づけ処理の記入 Exit Sub Blue_Exe: '青色色づけ処理の記入 Exit Sub End Sub
関連するQ&A
- エクセルのＩＦ文
ＩＦ文が簡単なものしか分からないレベルの者です。 以下の条件においてＩＦ文を作成する場合、どのようにしたら良いでしょうか？ 御教示願います。なおエクセルのバージョンはエクセル２０００です。 (1)A～Ｃ列の十数行のセルには文字が並んでいる（たとえばAXY1234１,FAC236等)。 (2)あるセル内(A～Ｃ列以外のセル）に入力した文字が、A列のセルにある文字と同じものがあれば、 あるセルの色は赤色になる。 (3)あるセル内(A～Ｃ列以外のセル）に入力した文字が、B列のセルにある文字と同じものがあれば、 あるセルの色は青色になる。 (4)あるセル内(A～Ｃ列以外のセル）に入力した文字が、C列のセルにある文字と同じものがあれば、あるセルの色は黄色になる。
- ベストアンサー
- その他(業務ソフトウェア)
- Python goto文を使うには
Python 3.7.3で以下のようにgoto文を使いたいのですが モジュールは何をインストールすればよいでしょうか。 必要ならば1行目は別の記述でも構いません。 ---------------------------- from goto import goto, label label .A x=input('値を入力してください') if x!=0 : goto .A print('END') ----------------------------- (Windows10,Python 3.7.3)
- 締切済み
- Python
- GOTO文の使い方
非常に単純で申し訳ない質問なのですが もし ～の条件を満たさない場合 ～へ行くというプログラムを組みたいのですが ちょっとよく分かりません GOTO文を使えば良いのでしょうか？一回 IF 条件 GOTO (文字) とやりましたところ (文字)の部分が指定されていないと でました 本などで調べれば良いのですが, ちょうどその本を忘れてしまい 困っているところです また,このプログラムは他人が作ったものを修正する作業ですので勝手も分からない状態です 単純質問でもうしわけありませんが宜しくお願いします
- ベストアンサー
- Visual Basic
- エクセル条件付き書式（空白でない場合に色を付ける、偶数行・奇数行毎に色を変える）
エクセルの条件付き書式の設定で、 (1)セルが空白でない場合に色を付ける、 (2)偶数行・奇数行毎に色を変える という２つのことを同時に行う方法があれば 教えていただけないでしょうか？ （※空白セルは、色なしに設定） (1)=A1<>"" → 赤 (2)=MOD(ROW(),2)=0 → 青 =MOD(ROW(),2)=1 → 黄 上記の設定の場合、空白セルが青・黄になります。 入力すると赤に変わります。 こちらが行いたいことは、 【空白セルは「色なし」で、入力すると、 奇数行は黄色、偶数行は青になることです。】 例 ABC 1* ←A1は黄 2 * ←B2は青 3 A1とB2以外のセルは色なしとなるようにしたい。 ただし、入力した場合に色がつくようにしたい。 よろしくお願いします。
- ベストアンサー
- Windows XP
- エクセルの条件付き書式について
A1セルに「100」が入力された場合、B1セルの色を赤に、同様にして200:青、300:黄、400：緑、500:赤、600:青、700:黄、800：緑という風にB1セルの色を変えたいと思います。 条件付き書式は３つまでしかないのですが、色のパターンは４種類なので、元の書式と合わせると４パターンです。 条件付書式で、A1セルの値が２００又は６００ならB1セルの色を青にするにはどうすればよろしいでしょうか。 つたない文章でわかりにくいかと思いますが、よろしくご回答ください。
- ベストアンサー
- オフィス系ソフト
- ＶＢマクロ 条件によってセルの色を変えたいのですが…
いつもこちらで勉強させて頂いております。 Excelで、ある二つの言葉を含むセルに色を付けたいのですが、 言葉の組み合わせが５パターンあり 条件付き書式では足りません。 ＡとＢを含むセル 赤 ＡとＣを含むセル 青 ＡとＤを含むセル 黄 ＡとＥを含むセル 緑 ＡとＦを含むセル 紫 といった様に、条件によってセルの色を変えたいのですが… マクロなどで良い方法はありますでしょうか？ どなたかアドバイス宜しくお願い致しますm(__)m
- 締切済み
- Visual Basic
- エクセルの関数で ある条件（複数）から参照する方法を教えてください。
類似の設問があるのかもしれないのですが、急いでいるので質問させてください。<(_ _)> Excel関数で、以下のようになっています。 A1セルに 1 B1セルに 2 C1セルに 3 どのセルも単数回答です。 これは、次の語句を数値化したものです。 赤：1、青：2、黄：3となっています。 そして、A2セルに、条件を満たす文字列を入れたいのです。 A2セル＝A1が1の場合は赤、2の場合は青、3の場合は黄 として、 ここでは、「A1は1」なので、"赤"という文字列を入れたいのです。 同様に、 B2セル＝B1が1の場合は赤、2の場合は青、3の場合は黄 として、 ここは、「B1は2」なので、"黄"という文字列を入れたいのです。 こういった場合は、IF COUNTIFなどで作成していくのでしょうか？ よろしくお願いいたします。<(_ _)>
- ベストアンサー
- オフィス系ソフト
- GoTo文とかSelect文の処理の仕方に関して
Excel VBAに関しての質問です。 コードを書いていてGoTo文とかSelect Case文を使いますが、 例えば、GoTo文で飛ばされた間のコードは処理時間に影響するのでしょうか？ また、Select Case文で該当しなかった命令文は処理時間に影響するのでしょうか？？ 以下の命令文があります。 Sub TEST() Dim A As Long For i = 1 To 10 Cells(i, 1) = A A = A + 1 Next i GoTo B For i = 1 To 10 Cells(i, 2) = A A = A + "あ" Next i B: End Sub これ、GoTo文で飛ばさないと、「型がちがうよ！」って怒られてしまいます。 （もちろん、例えとしてで、こんなコードは、いまでは書かなくなりましたが（汗）） ということは、GoTo文で飛ばされたコードはシングルクォーテーションで くくられたことと同じになるんでしょうか？ GoTo B 'For i = 1 To 10 'Cells(i, 2) = A 'A = A + "あ" 'Next i B: そもそも私のイメージでは、シングルクォーテーションで囲まれた範囲は、 演算処理とは関係なく無視されるみたいにイメージしていたんですけど、 いくら、シングルクォーテーションで囲んだとしても、その範囲が膨大に大きく多い文字数だと、 やっぱり処理時間に影響するものなのでしょうか？？ Select Case文を使うときに、 Select Case 条件式 Case 条件1 すんごく長いコード Case 条件2 すんごく長いコード ・ ・ ・ End Select って、続くとします。 条件に一致していないところは演算処理に影響を及ぼさないのでしょうか？？ もちろん、長いコードを書けば、ファイルのサイズは大きくなるでしょうが、演算処理の速さに影響するものなのかな？？ってのがとても気になりました。 ご存じの方おりましたら、ご指南くださいませ。 ちなみに、私はまだVBAを勉強し始めてまだ間もない若輩者でして、GoTo文などは、とりあえず「ここ要らないかも」って思ったところに使用するくらいで、高度な使用の仕方はしておりません。 それと、私はExel VBAしかプログラミング言語を知らないので、VBAではこうだけど、別の言語の似た命令だと、影響したり、しなかったり。。。するよ。みたいなお話も聞けたら幸いです。 どうぞ、よろしくお願いいたします。
- 締切済み
- Visual Basic
- PHPでのgoto文の実現方法
皆様のお知恵をお貸しください。 C言語やVBでは何かの処理を行って、継続不能なエラーが発生した場合は終了処理へ飛ばすようなgoto文（俗に言うgoto done）があります。 PHPではgoto文がサポートされていないようなのですが、皆様はphpでgoto doneを実現する場合どのような方法をとられていますか？ 現在、私が思いつくのは終了関数を作って、その中でexit()することくらいなのですが、もっとgoto doneに近くてよい方法は無いものでしょうか？ ※余談ですがリリース予定のPHP6からはgoto文が利用できるようですね。
- ベストアンサー
- PHP