Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66734 / 76734 ←次へ | 前へ→

【14562】Re:CSVファイルを読み込む
回答  Hirofumi  - 04/6/1(火) 22:43 -

引用なし
パスワード
   チョット時間が無いので
取り合えずこんな物でお茶を濁します

月報の日にち、日報の時間の行が固定されているので
日にち、時間はMatchiやFinedで探さず、行位置を計算させています

月報フォーマット、実行ファイルどちらでやっても出来ると思いますが
一応、実行ファイルの方でやって見ました

実行ファイルのSheet1に、
コントロールツールボックスのComboBox1とCommandButton1を張りつけます

ThisWorkbookのコードモジュールに以下を記述して下さい

Private Sub Workbook_Open()

  Dim i As Long
  
  With Worksheets("Sheet1").ComboBox1
    For i = 0 To 23
      .AddItem i
    Next i
  End With
    
End Sub

Sheet1のコードモジュールに以下を記述して下さい

Private Sub CommandButton1_Click()
  
  With Me.ComboBox1
    If .ListIndex <> -1 Then
      DataCopy .Value
    End If
  End With
  
End Sub

標準モジュールに以下を記述して下さい

Option Explicit

Public Sub DataCopy(ByVal lngTime As Long)

  Const strBookName As String = "月報フォーマット.xls"
  Const strResult As String = "月報"
  
  Dim i As Long
  Dim blnExists As Boolean
  Dim wkbData As Workbook
  Dim wksResult As Worksheet
  Dim lngRow As Long
  
  With Workbooks
    For i = 1 To .Count
      If .Item(i).Name = strBookName Then
        blnExists = True
        Exit For
      End If
    Next i
  End With
  If Not blnExists Then
    Beep
    MsgBox "月報フォーマット.xlsがOpenされていません"
    Exit Sub
  End If
  
  Set wkbData = Workbooks(strBookName)
  Set wksResult = wkbData.Worksheets(strResult)
  
  lngTime = lngTime + 4
  With wkbData.Worksheets
    .Item(strResult).Cells(lngRow, "B").Resize(31, 17).ClearContents
    For i = 1 To .Count
      If .Item(i).Name <> strResult Then
        lngRow = Val(Right(.Item(i).Name, 2)) + 9 - 1
        .Item(i).Cells(lngTime, "B").Resize(, 17).Copy _
          Destination:=.Item(strResult).Cells(lngRow, "B")
      End If
    Next i
  End With
  
  Set wksResult = Nothing
  Set wkbData = Nothing
  
  Beep
  MsgBox "処理が完了しました"

End Sub

実行ファイルSheet1のComboBoxで0〜23の数字を選び
CommandButtonを押すと、月報フォーマットの月報に各日付に選択時間の行が
Copyされるはずです
ヤッツケで作っているので、間違っていたらゴメン
其の時は、レスして下さい
0 hits

【14281】CSVファイルを読み込む アスキー 04/5/25(火) 14:45 質問
【14284】Re:CSVファイルを読み込む ちゃっぴ 04/5/25(火) 15:20 回答
【14291】Re:CSVファイルを読み込む アスキー 04/5/25(火) 15:43 発言
【14294】Re:CSVファイルを読み込む ちゃっぴ 04/5/25(火) 15:51 発言
【14295】Re:CSVファイルを読み込む アスキー 04/5/25(火) 16:07 質問
【14299】Re:CSVファイルを読み込む ちゃっぴ 04/5/25(火) 16:26 回答
【14306】Re:CSVファイルを読み込む アスキー 04/5/25(火) 17:01 回答
【14307】Re:CSVファイルを読み込む ちゃっぴ 04/5/25(火) 17:11 回答
【14310】Re:CSVファイルを読み込む アスキー 04/5/25(火) 18:16 発言
【14312】Re:CSVファイルを読み込む [名前なし] 04/5/25(火) 18:59 回答
【14315】Re:CSVファイルを読み込む Hirofumi 04/5/25(火) 21:05 回答
【14317】Re:CSVファイルを読み込む Hirofumi 04/5/25(火) 21:44 回答
【14399】Re:CSVファイルを読み込む アスキー 04/5/28(金) 9:11 発言
【14517】Re:CSVファイルを読み込む アスキー 04/5/31(月) 17:50 質問
【14527】Re:CSVファイルを読み込む Hirofumi 04/5/31(月) 20:33 発言
【14536】Re:CSVファイルを読み込む アスキー 04/6/1(火) 1:33 質問
【14562】Re:CSVファイルを読み込む Hirofumi 04/6/1(火) 22:43 回答
【14573】Re:CSVファイルを読み込む アスキー 04/6/2(水) 10:11 質問
【14598】Re:CSVファイルを読み込む アスキー 04/6/2(水) 17:38 発言
【14603】Re:CSVファイルを読み込む Hirofumi 04/6/2(水) 21:11 回答
【14632】Re:CSVファイルを読み込む アスキー 04/6/3(木) 12:42 お礼

66734 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free