- ベストアンサー
日本バンコクの往復航空券について
リンク先を見てください。 タイ国際空港(http://www.thaiair.co.jp/)の運賃です。 GWを設定しているとはいえ、あまりに高いように感じるのですが、こんなものなんでしょうか? 34万円と書かれています、信じられません。 買う人が居るんでしょうか? タイへの旅行を考えていたのですが、ここまで高いと手が出ません。 なんとかならないものでしょうか? https://wftc3.e-travel.com/plnext/thai6v9/Override.action?SITE=CAURCAUR&EMBEDDED_TRANSACTION=FlexPricerAvailability&PRICING_TYPE=I&DISPLAY_TYPE=1&DATE_RANGE_VALUE_1=3&DATE_RANGE_VALUE_2=3&DATE_RANGE_QUALIFIER_1=C&DATE_RANGE_QUALIFIER_2=C&COMMERCIAL_FARE_FAMILY_1=JPECONOMY&SO_SITE_MOD_E_TICKET=TRUE&SO_SITE_MINIMAL_TIME=H72&SO_SITE_MOD_PICK_CITY=FALSE&B_LOCATION_1=nrt&E_LOCATION_1=bkk&B_DATE_1=201004290000&B_DATE_2=201005050100&TRAVELLER_TYPE_1=ADT&TRAVELLER_TYPE_2=&TRAVELLER_TYPE_3=&TRAVELLER_TYPE_4=&TRIP_TYPE=R&B_ANY_TIME_1=TRUE&B_ANY_TIME_2=TRUE&SESSION_ID=&EXTERNAL_ID=Test&TRIP_FLOW=YES&AIR_TRIP_TYPE=YES&TYPE=AIR_TRIP_FARE&PAYMENT_TYPE=CON&LANGUAGE=JP&SO_GL=%3C?xml%20version=%221.0%22%20encoding=%22iso-8859-1%22?%3E%3CSO_GL%3E%3CGLOBAL_LIST%20mode=%22complete%22%3E%3CNAME%3ESO_SINGLE_MULTIPLE_COMMAND_BUILDER%3C/NAME%3E%3CLIST_ELEMENT%3E%3CCODE%3E1%3C/CODE%3E%3CLIST_VALUE%3E%3C![CDATA[OS%20YY%20IP%20%3CCLIENT_IP_ADDRESS%3E]]%3E%3C/LIST_VALUE%3E%3CLIST_VALUE%3ES%3C/LIST_VALUE%3E%3C/LIST_ELEMENT%3E%3C/GLOBAL_LIST%3E%3CGLOBAL_LIST%3E%3CNAME%3ESITE_LIST_EXTERNAL_REMARK%3C/NAME%3E%3CLIST_ELEMENT%3E%3CCODE%3ECOUNTRY:%3C/CODE%3E%3CLIST_VALUE%3EJAPAN%3C/LIST_VALUE%3E%3C/LIST_ELEMENT%3E%3C/GLOBAL_LIST%3E%3C/SO_GL%3E
- みんなの回答 (3)
- 専門家の回答
関連するQ&A
- グラフを連続的に高速で動かしたいです
お世話になります。 しょうもない質問ですんで、お暇な方お願いします。 添付画像にあるようなグラフがあり、画面内のボタンを押すと セルB3、C3の値が0から始まり、1きざみで1000になるまで繰り返します。 Sub ボタン1_Click() Dim i As Long Dim s, e As Date s = Now() Range("b3").Value = 0 Range("c3").Value = 0 For i = 1 To 1000 Range("b3").Value = Range("b3").Value + 1 Range("c3").Value = Range("c3").Value + 1 DoEvents Next e = Now() MsgBox CDate(e - s) End Sub このコードですと1000まで繰り返すまでの時間が私のPCでは34秒程掛っています。 コードの変更のみでこれを3秒ぐらいにできないでしょうか? なお、DoEventsは入れてないとグラフの更新が表示されませんでした。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- コンボボックスの記述の簡素化
下記の記述でコンボボックスにデーターを表示するようにしたのですが 大量に記述が必要になります。 もっと簡素化できないでしょうか。 よろしくお願いします。 If Worksheets("Sheet2").Range("C3").Value = Worksheets("Sheet2").Range("C2").Value Then 品名リスト.RowSource = "Sheet2!D3:D18" ElseIf Worksheets("Sheet2").Range("C4").Value = Worksheets("Sheet2").Range("C2").Value Then 品名リスト.RowSource = "Sheet2!E3:E20" ― ― 省略 ― ― ElseIf Worksheets("Sheet2").Range("C20").Value = Worksheets("Sheet2").Range("C2").Value Then 品名リスト.RowSource = "Sheet2!U3:U20" ElseIf Worksheets("Sheet2").Range("C21").Value = Worksheets("Sheet2").Range("C2").Value Then 品名リスト.RowSource = "Sheet2!V3:V20"
- ベストアンサー
- その他(プログラミング・開発)
- エラーを見つけられません。
エラーを見つけられません。 エクセルで次のコードを書きましたが何も表示されません。 ------------------------- Sub example01() '請求書番号 (請求書1のE2からデータ収集のA2へ) Worksheets("データ収集").Range("a2").Value = Worksheets("請求書1").Range("e2").Value '発行日 (請求書1のE1からデータ収集のB2へ) Worksheets("データ収集").Range("b2").Value = Worksheets("請求書1").Range("e1").Value '会社名 (請求書1のB4からデータ収集のC2へ) Worksheets("データ収集").Range("c2").Value = Worksheets("請求書1").Range("b4").Value '担当者名 (請求書1のB5からデータ収集のD2へ) Worksheets("データ収集").Range("d2").Value = Worksheets("請求書1").Range("b5").Value '請求金額 (請求書1のE31からデータ収集のE2へ) Worksheets("データ収集").Range("e2").Value = Worksheets("請求書1").Range("e31").Value End Sub ------------------------- 原因として何が考えられるでしょうか?何卒宜しくお願い致します。
- ベストアンサー
- Visual Basic
- VBA中の”シート名”を”アクティブシート”に変更
いつもお世話になっております。 非常に初歩的な質問なのですが、下記の2つのVBA中のシート名をアクティブシートに変更したいのですが、 sheetName = ActiveSheet.Name で試行錯誤するもうまくいきません。 実際のコードは下記の通りです。 これらのシート名”申請書”をアクティブシートに変更したいのです。 このコードは過去にここで教えて頂いたコードで出来ればこれを修正したいので宜しくお願いします。 1.Sub 申請書登録() Dim NewBookName As String With ThisWorkbook.Sheets("申請書") Windows("1.新規・変更登録申請書(原紙)・リスト②T用.xlsm").Activate For i = 5 To Sheets("規格登録・変更リスト").Range("A1048576").End(xlUp).Row + 1 If Sheets("規格登録・変更リスト").Range("B" & i).Value = "" Then With Sheets("規格登録・変更リスト") .Range("A" & i).Value = Sheets("申請書").Range("E3").Value .Range("B" & i).Value = Sheets("申請書").Range("O3").Value .Range("C" & i).Value = Sheets("申請書").Range("E4").Value ・・・・・・・・・・・・・・・・・・・ 2.Sub 申請書保存() Dim NewBookName As String With ThisWorkbook.Sheets("申請書") NewBookName = .Range("F22").Value & " " & .Range("E4").Value & " " & .Range("A2").Value & " " & .Range("A1").Value Worksheets("申請書").ExportAsFixedFormat Type:=xlTypePDF, Filename:="\***\XXXX\1.申請書\申請書" & "\" & NewBookName End With End Sub
- ベストアンサー
- Excel(エクセル)
- VBAでスクロールバーを動かしても値が変わらない
図のようなスクロールバーを動かして、それぞれの値と、A4のセルの色が変わるものを作りたいのです。 プログラムは、 Sub スクロール1_Change() R = Range("C2").Value G = Range("D2").Value B = Range("E2").Value Range("A4").Interior.Color = RGB(R, G, B) End Sub Sub スクロール2_Change() R = Range("C2").Value G = Range("D2").Value B = Range("E2").Value Range("A4").Interior.Color = RGB(R, G, B) End Sub Sub スクロール3_Change() R = Range("C2").Value G = Range("D2").Value B = Range("E2").Value Range("A4").Interior.Color = RGB(R, G, B) End Sub ですが、スクロールバーに関連付けられていないようです。基本ですみませんが、関連付けるにはどうすればいいのでしょうか。
- 締切済み
- その他MS Office製品
- select case文について
リストから選択とリストに無い値の入力のリストへの追加をしたく、あちこちの情報をつぎはぎで下記のようにVBAで動かそうとしましたが、うまく動いてくれません。 前(Case A)は動くのですが、あと(Case 2)が機能しません。 それと、3つ以上をSelectCaseで組む場合の方法も合わせてお願いします。 Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Dim LastR As Long Select Case Target.Address(0, 0) Application.EnableEvents = False Case "D1" With Worksheets("Sheet2") LastR = .Range("A36636").End(xlUp).Row Set c = .Range("A1:A" & LastR).Find( _ Target.Value, , xlValues, xlWhole, xlByColumns, xlPrevious, True) If c Is Nothing Then If vbNo = MsgBox("リストに追加しますか?", _ vbYesNo, "追加の確認") Then Application.EnableEvents = True Exit Sub End If .Range("A" & LastR + 1).Value = Target.Value .Range("A1:A" & LastR + 1).Name = "リストA" End If With Target.Validation .Delete .Add Type:=xlValidateList, Formula1:="=リストA" .ShowError = False End With Case "E1" With Worksheets("Sheet2") Set c = .Range("B1:B" & LastR).Find( _ Target.Value, , xlValues, xlWhole, xlByColumns, xlPrevious, True) If c Is Nothing Then If vbNo = MsgBox("リストに追加しますか?", _ vbYesNo, "追加の確認") Then Application.EnableEvents = True Exit Sub End If .Range("B" & LastR + 1).Value = Target.Value .Range("B1:B" & LastR + 1).Name = "リストB" End If End Select End With With Target.Validation .Delete .Add Type:=xlValidateList, Formula1:="=リストB" .ShowError = False End With Application.EnableEvents = True End Sub
- ベストアンサー
- Visual Basic
- マクロについて
マクロでデータをクリアするコマンドボタンを作りました。でも、計算の答えがでなくなりました。 例えば、 A1:A10までの情報はクリアになります。 答えの“=SUM(A1:A10)”というCセルだけが前の情報のままになります。(Cセルはマクロに登録していません。) 全くのど素人で、マクロの登録も他の書類からコピーしてセルだけ変えました。 マクロの内容は、下記の通りです。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 ' Sub allclear() Application.Calculation = xlManual Range("D4").Value = "" Range("B6").Value = "" Range("B8").Value = "" Range("E11").Value = "" Range("E12").Value = "" Range("F11").Value = "" Range("B21").Value = "" Range("B23").Value = "" Range("B25").Value = "" Range("B27").Value = "" Range("B29").Value = "" Range("P5:P9").Value = "" Range("Q5:Q9").Value = "" Range("P15:P19").Value = "" Range("Q15:Q19").Value = "" End Sub よろしくおねがいします。(_ _)
- ベストアンサー
- Windows XP
- VBAでソルバーを停止せずに動かすには
こんにちは。 VBAで、ソルバーを含んだコードを書いていますが、実行の時にソルバーで計算している度にメッセージボックスが表示されて、OKを押す必要があります。メッセージが表示されない、またはOKが自動的に押されるようにするにはどうすればいいでしょうか。コードは、次のようになっています。 Range("E164").Value = "0.1" Range("E165").Value = "0" SolverOk SetCell:="$E$25", MaxMinVal:=3, ValueOf:="2130", ByChange:="$C$38" SolverSolve Range("AE7").Value = Range("J3").Value Range("E164").Value = "0.1" Range("E165").Value = "0.1" SolverOk SetCell:="$E$25", MaxMinVal:=3, ValueOf:="2130", ByChange:="$C$38" SolverSolve Range("AE8").Value = Range("J3").Value Range("E164").Value = "0.1" Range("E165").Value = "0.2" Then SolverOk SetCell:="$E$25", MaxMinVal:=3, ValueOf:="2130", ByChange:="$C$38" SolverSolve Range("AE9").Value = Range("J3").Value Range("E164").Value = "0.1" Range("E165").Value = "0.3" SolverOk SetCell:="$E$25", MaxMinVal:=3, ValueOf:="2130", ByChange:="$C$38" SolverSolve Range("AE10").Value = Range("J3").Value ・・・ などの繰り返しになっています。 どうぞよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- エクセル VBAについて。その2
以前、こちらの掲示板でお世話になった者です。 Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$C$5" Select Case Target.Value Case 1 Range("C6").Value = 24 Range("D5").Value = 600 Range("D6").Value = 0 Range("E5").Value = 400 Range("E6").Value = 0 Case 2 Range("C6").Value = 32 Range("D5").Value = 1000 Range("D6").Value = 0 Range("E5").Value = 500 Range("E6").Value = 0 End Select Case "$D$5" Select Case Range("C5").Value Case 1 Range("D6").Value = (600 - Range("D5").Value) / 25 Case 2 Range("D6").Value = (1000 - Range("D5").Value) / 25 End Select Case "$E$5" Select Case Range("C5").Value Case 1 Range("E6").Value = (400 - Range("E5").Value) / 50 Case 2 Range("E6").Value = (500 - Range("E5").Value) / 50 End Select と、上記のようなマクロがお手伝いしていただいた結果、完成しました。 C5に1を代入した場合 D5 = 600 D6 = 0 E5 = 400 E6 = 0 C5に2を代入した場合 D5 = 1000 D6 = 0 E5 = 500 E6 = 0 C5に1を代入しており、D5の値を500に下げた時 D6 = 4 (D5の値を100下げる毎にD6の値に+4 ) (D5の値を100上げる毎にD6の値に-4 ) C5に1を代入しており、E5の値を300に下げた時 D6 = 4 (E5の値を100下げる毎にE6の値に+4 ) (E5の値を100上げる毎にE6の値に-4 ) <以下、C5に2を代入した時のケースを省略。> というような意味合いのマクロになったと思いますが、少々困ったことが発生しました。 (D5の値を100下げる毎にD6の値に+4 ) (D5の値を100上げる毎にD6の値に-4 ) (E5の値を100下げる毎にE6の値に+4 ) (E5の値を100上げる毎にE6の値に-4 ) この部分を (D5の値を100下げる毎にD6の値に+4 ) (D5の値を100上げる毎にD6の値に-8 ) (E5の値を100下げる毎にE6の値に+4 ) (E5の値を100上げる毎にE6の値に-8 ) に変更したいのですが、計算式がわかりません(?ω?) どなたかご指導のほどよろしくお願いします。
- ベストアンサー
- Windows XP
- セルの値を取得して他のセルにひとつづつ配置したい
こんにちわ VBS初心者です A1セルに12~14ケタほどの英文字と数字が混在したコードがあります それをB2,C2,D2,E2・・・・・セルに左から順にひとつづつ配置したいのですが、どうも上手く行きません Sub test4() Value = Range("A1") Range("A2").Value = Mid("A1", 1, 1) Range("B2").Value = Mid("A1", 2, 1) Range("C2").Value = Mid("A1", 3, 1) Range("D2").Value = Mid("A1", 4, 1) Range("E2").Value = Mid("A1", 5, 1) Range("F2").Value = Mid("A1", 6, 1) Range("G2").Value = Mid("A1", 7, 1) Range("H2").Value = Mid("A1", 8, 1) Range("I2").Value = Mid("A1", 9, 1) Range("J2").Value = Mid("A1", 10, 1) Range("K2").Value = Mid("A1", 11, 1) Range("L2").Value = Mid("A1", 12, 1) Range("M2").Value = Mid("A1", 13, 1) Range("N2").Value = Mid("A1", 14, 1) End Sub "A1"を値としてとらえているようで B2にはAが、C2には1が入ってしまいます A1の値を取り出すにはどうしたら良いでしょうか よろしくお願いします
- 締切済み
- Windows系OS
- paintshop'pro 2022の広告がデスクトップ画面上に表示され、広告を非表示にする方法を教えてください。
- paintshop'pro 2022の広告を自動で表示されないようにする方法について教えてください。
- paintshop'pro 2022のデスクトップ画面上に表示される広告を非表示にする方法を教えてください。
補足
ありがとうございます。 安い値段で買うことも不可能ではないみたいですね。 少し安心しました。