tkrn の回答履歴

全124件中121～124件表示
  • VBAのNext forでエラーが出て困ってます。

    質問です。下記のようにコードを書いたのですが、エラーが出て 先へ進めません。修正箇所のご指摘とできれば修正後のものをお願いします。 内容はワークシートの中身をプリントするかしないかだけなのですが。 Public Sub PrintWorksheets2() 'declare variables and assign address Dim intPrint As Integer, intCount As Integer, wkbHours As Workbook, shtCurrent As Worksheet Set wkbHours = Application.Workbooks("t9-ex-e9.xls") 'ask user if he or she wants to print the worksheet shtCurrent = wkbHours For intCount = 1 To wkbHours.Worksheets.Count intPrint = MsgBox(prompt:="Print " & shtCurrent.Name & "?", Buttons:=vbYesNo + vbExclamation) If intPrint = vbYes Then 'if user wants to print shtCurrent.PrintPreview End If Next intCount End Sub

  • unionの結果は集計はできないですよね。。。。

    【明細データ】と【変換テーブル】で、変換後明細データを作成 して、その結果を集計したいのですが、、、 下記の結果を求めるためにはSQLひとつで可能でしょうか？ ※(3)の表まではunionで可能でしたが、unionでは集計はできないですよね。。。。 (1)【明細データ】 CODE VALUE AMOUNT A 1000 10000 B 2000 20000 C 3000 30000 D 4000 40000 E 1001 10000 F 2001 20000 G 3000 30000 H 4000 40000 (2)【変換テーブル】 VALUE1 VALUE2 1000 1001 2000 2001 (3)【変換後明細データ】 CODE VALUE AMOUNT A 1001 10000 B 2001 20000 C 3000 30000 D 4000 40000 E 1001 10000 F 2001 20000 G 3000 30000 H 4000 40000 (4)【SQL抽出結果】が欲しい VALUE AMOUNT 1001 20000 2001 40000 3000 60000 4000 80000

    • ベストアンサー
    • masa-it
    • Oracle
    • 回答数4
  • VBAのNext forでエラーが出て困ってます。

    質問です。下記のようにコードを書いたのですが、エラーが出て 先へ進めません。修正箇所のご指摘とできれば修正後のものをお願いします。 内容はワークシートの中身をプリントするかしないかだけなのですが。 Public Sub PrintWorksheets2() 'declare variables and assign address Dim intPrint As Integer, intCount As Integer, wkbHours As Workbook, shtCurrent As Worksheet Set wkbHours = Application.Workbooks("t9-ex-e9.xls") 'ask user if he or she wants to print the worksheet shtCurrent = wkbHours For intCount = 1 To wkbHours.Worksheets.Count intPrint = MsgBox(prompt:="Print " & shtCurrent.Name & "?", Buttons:=vbYesNo + vbExclamation) If intPrint = vbYes Then 'if user wants to print shtCurrent.PrintPreview End If Next intCount End Sub

  • VBAのNext forでエラーが出て困ってます。

    質問です。下記のようにコードを書いたのですが、エラーが出て 先へ進めません。修正箇所のご指摘とできれば修正後のものをお願いします。 内容はワークシートの中身をプリントするかしないかだけなのですが。 Public Sub PrintWorksheets2() 'declare variables and assign address Dim intPrint As Integer, intCount As Integer, wkbHours As Workbook, shtCurrent As Worksheet Set wkbHours = Application.Workbooks("t9-ex-e9.xls") 'ask user if he or she wants to print the worksheet shtCurrent = wkbHours For intCount = 1 To wkbHours.Worksheets.Count intPrint = MsgBox(prompt:="Print " & shtCurrent.Name & "?", Buttons:=vbYesNo + vbExclamation) If intPrint = vbYes Then 'if user wants to print shtCurrent.PrintPreview End If Next intCount End Sub

活動履歴