aspxでVBAのようなEXECUTEメソッドとEVALを使用する方法
- aspx内でVBAのようなEXECUTEメソッドとVBScriptのようなEVALを使用する方法について説明します。
- 具体的な方法として、以下のコードを使用することができます。 Dim Inq(5) As String For i As Integer = 1 To 5 If i = num Then Eval("Inq" & i & ".src = "gazou/Inq-" & i & "1.gif" Else Eval("Inq" & i & ".src= "gazou/Inq-" & i & "0.gif" End If Next
- 上記のコードを使用することで、numの値によってInq1からInq5までの画像ファイルのsrc属性を設定することができます。
- ベストアンサー
aspxにてVBAのようなEXECUTEメソッドは?
aspxにてVBAのようなEXECUTEメソッドは? お世話になります。 aspxにてVBAのようなEXECUTEやVBScriptのようなEVALを扱いたいのです。 vb内にて If num = 1 Then Inq1.Src = "gazou/Inq-11.gif" Else Inq1.Src = "gazou/Inq-10.gif" End If If num = 2 Then Inq2.Src = "gazou/Inq-21.gif" Else Inq2.Src = "gazou/Inq-20.gif" End If If num = 3 Then Inq3.Src = "gazou/Inq-31.gif" Else Inq3.Src = "gazou/Inq-30.gif" End If If num = 4 Then Inq4.Src = "gazou/Inq-41.gif" Else Inq4.Src = "gazou/Inq-40.gif" End If If num = 5 Then Inq5.Src = "gazou/Inq-51.gif" Else Inq5.Src = "gazou/Inq-50.gif" End If という上記内容を Dim Inq(5) As String For i As Integer = 1 To 5 If i = num Then Eval("Inq" & i & ".src = gazou/Inq-" & i & "1.gif" --------* Else Eval("Inq" & i & ".src= gazou/Inq-" & i & "0.gif" --------* End If Next のようにするには-------*をどのような文にすればよいでしょうか? よろしくお願いします。
- MYCABIN
- お礼率87% (7/8)
- Microsoft ASP
- 回答数1
- ありがとう数2
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
Inq ってのが何を指して、どういう状態にあるのかわからないので、TextBox にたとえて勝手に書きます。 ちなみに Windows フォームで実験してます。 フォーム上に TextBox1 ~ TextBox5 が既に配置されています。 Dim textBoxes() As System.Windows.Forms.TextBox Dim num As Integer = 3 textBoxes = New System.Windows.Forms.TextBox(4) {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5} For i = 1 To textBoxes.Length If i = num Then textBoxes(i - 1).Text = "gazou/Inq-" & i & "1.gif" Else textBoxes(i - 1).Text = "gazou/Inq-" & i & "0.gif" End If Next
関連するQ&A
- 2つのVBAを組み合わせる方法
お世話になります、2つのVBAを組み合わせる方法で迷っています。 1つ目が Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long, k As Long, myNum As Long If Intersect(Target, Range("C1,B9:B39")) Is Nothing Or Target.Count > 1 Then Exit Sub Application.EnableEvents = False With Target If .Column = 3 Then myNum = WorksheetFunction.Max(Range("B9:B39")) If IsDate(.Value) Then For i = 9 To 39 If Cells(i, "A").Value = "" Then Cells(i, "B").Value = "" Else Cells(i, "B") = myNum + i - 8 End If Next i End If Else i = .Row If .Value = "" Then Range(Cells(i + 1, "B"), Cells(39, "B")).ClearContents Else For k = i + 1 To 39 If Cells(k, "A").Value = "" Then Cells(k, "B").Value = "" Else Cells(k, "B") = Cells(k - 1, "B") + 1 End If Next k End If End If End With Application.EnableEvents = True End Sub です。 2つめが Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = True If Intersect(Target, Range("R8:R38")) Is Nothing Then Exit Sub Application.EnableEvents = False Range(Cells(Target.Row, 18), Cells(39, 18)).Value = Target.Value Application.EnableEvents = True End Sub です。2つのPrivate Sub Worksheet_Change(ByVal Target As Range)イベントのVBAですが、どのようにして組み合わせれば良いのでしょうか?
- ベストアンサー
- Excel(エクセル)
- VBAで2つのプロシージャーをつなげるには
VBAでSub ~ End Subまで書き終えて、一つのプロシジャーを完成させたあと、 その下に、もう一つのプロシジャーを作り、連続してマクロを動かしたいと思ってます。 例に例えると、 Sub test() Dim MyRange As Range Set MyRange = Columns("c").Find(What:="﨑") If MyRange Is Nothing Then Debug.Print "環境依存文字ははみつかりません" Else MyRange.Font.ColorIndex = 3 End If Dim MyCells As Range Set MyCells = Columns("c").Find(What:="髙") If MyCells Is Nothing Then Debug.Print "環境依存文字ははみつかりません" Else MyCells.Font.ColorIndex = 3 End If End Sub Sub sample() Dim i As Long For i = 1 To Cells(Rows.Count, "I").End(xlUp).Row If InStr(1, Cells(i, "I"), "VBA", vbTextCompare) > 0 Then Cells(i, "M") = "YES" End If Next End Sub 上記のような2つのマクロをつなげて1つの実家行えるようにするにはどうしたらよろしいのでしょうか。 どうしても実行時に上のマクロと下のマクロが別々に表示されてしまします。 (ちなみに、上側のマクロは環境依存文字を探すマクロ、下側はVBAの文字を見つけ出すマクロです。) どなたかご存知の方いらっしゃいましたら、教えて頂けないでしょうか。 よろしくお願い致します。
- ベストアンサー
- その他(インターネット・Webサービス)
- VBAで教えてください。
データがないときはExitSubしたいのですが、何処に記述すれば良いでしょうか? Sub 削除() Dim i As Long If MsgBox("データを削除します。よろしいですか?", vbYesNo) = vbYes Then Sheets("リスト").Select i = 5 Do Until i = 200 If Cells(i, 5).Value = Sheets("マスタ登録").Range("D5") Then Cells(i, 1).EntireRow.Delete End If i = i + 1 Loop Else Exit Sub End If End Sub
- ベストアンサー
- オフィス系ソフト
- Excel VBAのFileSearch機能
初めて投稿します。助けてください。 以下のVBAを使用して業務を行っているのですが このマクロが動かなくなってしまいました。 ネット等で調べてわかったのですが XP問題で社内PCがすべて変わりExcelも2013になってしまい 2013では、下記に記載されているFileSearch機能が使用できないようです。 出来れば下記の分をExcel2013でも 動くようにどの部分を変更すればいいいか教えていただけないでしょうか? ---------------------<VBA文>------------------------- Sub 作成() Dim i, j, no As Integer Dim Mpath, Mname, Mfull As String Mpath = ActiveWorkbook.Path Mname = ActiveWorkbook.Name Mfull = Mpath & "\" & Mname Worksheets("一覧").Select Range("A2:A200").Clear With Application.FileSearch .NewSearch .LookIn = Mpath .Filename = "*.xls" .FileType = msoFileTypeExcelWorkbooks If .Execute > 0 Then For i = 1 To .Execute If .FoundFiles(i) <> Mfull Then Cells(i + 1, 1).Value = .FoundFiles(i) j = Len(Cells(i + 1, 1)) If j > 218 Then MsgBox ("218文字を超えてます。") Exit Sub End If End If Next i Else MsgBox ("見つかりませんでした。") End If End With Range("A2").Select Range("A2:A1000").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal End Sub
- ベストアンサー
- SE・インフラ・Webエンジニア
- VBAでShift-JISのURLエンコード
Excelにおいて、マクロを使ってShint-JIS形式のエンコードを行いたいのですが その方法(ソース)がネット上で見つかりません。。どなたかご教授いただけないでしょか! ※VBA(マクロ)について、ぜんぜん詳しくありません。。 検索 ⇒ %8c%9f%8d%f5 UTF-8の場合ならば、シンプルなものが見つかりました。 ----------------------------------------------------- Public Function UrlEncode(ByVal sText As String) As String If Len(sText) = 0 Then Exit Function With CreateObject("ScriptControl") .Language = "JScript" UrlEncode = .CodeObject.encodeURIComponent(sText) End With End Function また、デコードするものも見つかりました。 ----------------------------------------------------- Function URLDecodeSJIS(src) src = UnEscape(src) For i = 1 To Len(src) srcCh1 = AscW(Mid(src, i, 1)) If (&H0 <= srcCh1 And srcCh1 <= &H80) Or (&HA0 <= srcCh1 And srcCh1 <= &HDF) Then URLDecodeSJIS = URLDecodeSJIS & Chr(srcCh1) ElseIf (&H81 <= srcCh1 And srcCh1 <= &H9F) Or (&HE0 <= srcCh1 And srcCh1 <= &HFF) Then i = i + 1 srcCh2 = AscW(Mid(src, i, 1)) clcCh = srcCh1 * 256 + srcCh2 If (Asc(Chr(clcCh)) And &HFFFF&) = clcCh Then clcCh = Chr(clcCh) URLDecodeSJIS = URLDecodeSJIS & clcCh End If Next End Function Function UnEscape(s) With CreateObject("MSScriptControl.ScriptControl") .Language = "VBScript" .Reset UnEscape = .Eval("unescape(""" & s & """)") End With End Function よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- エクセル2007のVBAについて
VBA初心者ですが、よろしくお願いします。 エクセルで入力したいシートタブを右クリック、コードの表示で、 VBAに以下のスクリプトを入力しました。 ネットに紹介されていたスクリプトに自分で一部書き足したものです。 U列に値が入っていれば、その行のT列をダブルクリックするとチェックマークがつくようにし、 それをU列の最終行までループしたいのですが、エラーなどはなくチェックマークが出現しません。 どこが間違っているのでしょうか?ご教授お願いします。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MaxRow = Range("U65536").End(xlUp).Row For i = 1 To MaxRow Step 1 If Range("U" & i) <> Null Then If Intersect(Target, Range("T" & i)) Is Nothing = False Then Cancel = True If Target.Value = ChrW(10003) Then Target.ClearContents Else Target.Value = ChrW(10003) End If End If End If Next i End Sub
- ベストアンサー
- オフィス系ソフト
- vba 四捨五入 について教えてください。
VBA初心者です。お世話になりますがよろしくお願いします。 vbaでRound関数を使って四捨五入したいと考えております。 以下のコードで実行するとエラー(プロシージャの呼び出し,または引数が不正です。)が出ます。 何がなんだかわからずに困っております。 どうかご教授よろしくお願いします。 Sub 計算() Worksheets("abc").Activate Dim LastRow As Long Dim i As Integer LastRow = Worksheets("abc").Range("K65536").End(xlUp).Row For i = 6 To LastRow If Cells(i, 11) = 0 Then Cells(i, 12) = "" Else Cells(i, 12) = Round(Cells(i, 9) / Cells(i, 11),-2) End If Next End Sub
- ベストアンサー
- Visual Basic
- VBAの書き方を教えてください 2
以前にこちらで質問をさせて頂き、(http://okwave.jp/qa/q8451754.html)これに、VBAを追記していきたいのですが、移動したシートがアクティブする方法がわかりません。 移動したシートのA1000をアクティブにする場合、教えて頂いたVBAにどこに何を入れれば宜しいのでしょうか? よろしくお願いします。 Private Sub CommandButton1_Click() Dim k As Long, myFlg As Boolean For k = 1 To Worksheets.Count If Worksheets(k).Name = Range("A1") Then myFlg = True Exit For End If Next k If myFlg = True Then Worksheets(k).Activate Else MsgBox "該当シートなし" End If End Sub
- ベストアンサー
- Excel(エクセル)
- エクセルVBAで
お世話になります。 エクセルVBAで簡易プログラムを作成しています。 その中でユーザーフォームを作り、チェックボックスで 6項目からどれか一つ選択する様な仕組みを作っています。 利用者が二つ以上選択(チェック)出来ない様にしたいの ですが、どの様にすれば良いでしょうか。 ちなみに今の記述は下記の様になります。 ご教授下さいます様、宜しくお願い致します。 記 If CheckBox1 = False Then If CheckBox2 = False Then If CheckBox3 = False Then If CheckBox4 = False Then If CheckBox5 = False Then If CheckBox6 = False Then MsgBox "どれか選択して下さい!" GoTo err_jmp Else: mytoki = "3年前から" End If Else: mytoki = "2年前から" End If Else: mytoki = "1年前から" End If Else: mytoki = "半年前から" End If Else: mytoki = "1週間前から" End If Else: mytoki = "昨日から" End If
- ベストアンサー
- Visual Basic
- このVBAソースのどこが間違ってるか教えてください
Dim csp As Integer 'ストップ Dim css As Integer 'ストップorスタート Sub Quest2() If css = 0 Then css = 1 Quest2a Else cstp = 1 css = 0 End If End Sub Sub Quest2a() Sheets("Sheet1").Select Range("B1:J10").Select Selection.Interior.ColorIndex = x1None Range("a1").Select cstp = 0 Do r = 1: c = 5 For i = 0 To 15 If i < 9 Then Cells(r, c).Interior.ColorIndex = x1None r = r + 1 If i < 5 Then c = c + 1 Else c = c - 1 End If Cells(r, c).Interior.ColorIndex = 3 Else Cells(r, c).Interior.ColorIndex = x1None r = r - 1 If i < 13 Then c = c - 1 Else c = c + 1 End If Cells().Interior.ColorIndex = 3 End If 'タイミング For tm1 = 1 To 1000: For tm2 = 1 To 100: Next If cstp = 1 Then Exit For End If Next DoEvents If cstp = 1 Then Exit For End If If r = 3 And c = 5 Then Cells(r, c).Interior.ColorIndex = x1None End If Next DoEvents If cstp = 1 Then Exit Do End If Loop Cells(10, 9) = Cells(r, c) Cells(10, 9).Interior.ColorIndex = 8 End Sub
- ベストアンサー
- その他(プログラミング・開発)
お礼
ご回答ありがとうございます。 配列に変換するところまでは理解できました。 textBoxes = New System.Windows.Forms.TextBox(4) {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5} の部分をWEBページに相当させるのがまだできません。 <img id="TextBox1" runat="server" src="gazou/Inq11.gif"> のタグがあったとした場合 textBoxes = New ArrayList(4) {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5} のようにするには ArrayListではないのはわかりますが、一体何なのでしょうか。