- ベストアンサー
GOTOキャンペーンについて
GOTOキャンペーンについて、東京が除外になりました。 そもそも、GOTOキャンペーン全体を一度延長すべきと思いますが、みなさん、いかがでしょうか?
- みんなの回答 (5)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (4)
- KGS
- ベストアンサー率24% (1323/5320)
- KoalaGold
- ベストアンサー率20% (2539/12476)
- gongorogon
- ベストアンサー率16% (705/4247)
- BUN910
- ベストアンサー率32% (944/2888)
関連するQ&A
- GOTOキャンペーンについて。
GOTOキャンペーンについて。 自家用車で高速道路利用して千葉から 京都に行き旅館に泊まる 自家用車で千葉に戻る。 キャンペーンの補助金はもらえますか?
- ベストアンサー
- その他(国内旅行・情報)
- GOTOキャンペーン
GOTOキャンペーンは、自民党の最大権力者である二階幹事長が、「全旅クーポン」を発行している一般社団法人全国旅行業協会の会長を兼務しているので、彼の立場上どうしても旅行券を出したいのが真の理由、と考えられます。 と、Yahooニュースの記事に書いてありました。 そこで質問です。 政治家の方々は、コロナにかかると致命的な歳の方々がほとんどです。 GOTOキャンペーンをすれば自分達がコロナに罹患する確率が確実に高くなりますよね? 命に関わる可能性もありますよね? そして、GOTOキャンペーンを強行したからだ!と世論の風当たりも強くなるし、感染してしまえば自業自得だとメディアに叩かれるし、政治生命にも致命的なダメージとなるでしょう。 それでもお金や利権の方が大切なのでしょうか、、、 政治家の方達だから、頭がおかしい人はいたとしても、損得の勘定ができない馬鹿はいないと思います。 ちょっと考えればお金や利権を手にしてもデメリットの方が大きいのがわからないのでしょうか? なぜGOTOキャンペーンを強行するのでしょう?
- ベストアンサー
- 政治
- 9月からのgotoキャンペーン
7月に和歌山県のリフレッシュキャンペーンを利用してヤフートラベルで9月に1泊の旅行を予約しました。この時はまだ「GoToトラベルキャンペーン 35%引きクーポン」がなくそのまま申し込みました。この場合、9月以降のgotoキャンペーンの対象にもなるのでしょうか? もし、対象になる場合、自分で事後申請方法等詳しく教えて頂けないでしょうか?宜しくお願い致します。
- 締切済み
- その他(生活・暮らし)
- GoToキャンペーンですが東京都と若者と高齢者は対
GoToキャンペーンですが東京都と若者と高齢者は対象外です。使えるのは何歳位ですか?それから関西の人は8月以降の東京の巨人戦観戦しに行ったらGoToキャンペーンの対象外で東京都から注意されますか?二人です。
- 締切済み
- その他(生活・暮らし)
- 7月23日~26日の4連休、どこかに行きますか?
政府は、肝いりの「GoToトラベル・キャンペーン」を実施しますが、土壇場になって東京を除外するとなって、混乱しています。 「GoToトラベル・キャンペーン」が「トラブル・キャンペーン」になりそうな予感ですが、さて皆さんは7月の4連休、どこかに行きますか? 私は神奈川ですが、東京の隣県でありながら除外されていない微妙な県となっています。 今のところどうするか未定です。
- ベストアンサー
- アンケート
- gotoトラベルキャンペーンで旅行された方いますか
もう少し落ち着いたらgotoトラベルキャンペーン活用して旅行でも行きたいなと思っているんですがどのような形で還元されるんですかね? 申し込みをするのか、申請するのか? 実際に利用された方などいらっしゃったら教えて下さいー
- 締切済み
- その他([地域情報] 旅行・レジャー)
- Gotoを使わずに済みますか?
VBA超初心者です。ヘルプだけで学習していますが、よくわかりません。印刷する時に、GT4かGU4の値が0の場合はエラーメッセージが出て終了し、いずれも0以外ならばその数値を印刷の開始と終了ページとして取得するプログラムを作ってみましたが、何度やってもうまくいかず、やむなく昔ベーシックで習ったGotoを使ってみました。 しかし、過去ログを見ると、Gotoは使わないほうが良いとの事。 この文でGotoをなくす方法をご教授下さい。お願いします。 Sub 印刷() 開始ページ = Range("GT4").Value 終了ページ = Range("GU4").Value If Range("GT4") = 0 Then GoTo 10 If Range("GU4") = 0 Then GoTo 20 入力結果 = MsgBox((開始ページ) & "ページから" & (終了ページ) & "ページを印刷しますか?", vbYesNo) If 入力結果 = vbYes Then ActiveWindow.SelectedSheets.PrintOut From:=開始ページ, To:=終了ページ, Copies:=1, Collate _ :=True GoTo 30 10: MsgBox ("未入力の項目があ~る!") GoTo 30 20: MsgBox ("入力ミスがあります!") 30: End If End Sub
- ベストアンサー
- Visual Basic
お礼
そうですよね!!ありがとうございます!