Excel VBA質問箱 IV

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

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


51032 / 76732 ←次へ | 前へ→

【30576】Re:月毎の集計方法についてです
回答  ちくたく  - 05/10/31(月) 10:20 -

引用なし
パスワード
   ebi さん
こんにちは。

大変、質問はわかりよかったのですが、
日付の形式によっては下記のコードは動かないかもしれません。
また、私は、4月から始まる場合の処理がよくわからないので、
書式設定とFor~Nextのネストでごまかしました。

Sub 形式変換()
  
  Dim oriWs As Worksheet, myWs As Worksheet
  Dim myMon As Integer, myVal As Long
  Dim i As Integer, j As Integer
  
  Set oriWs = Worksheets("Sheet1")
  Set myWs = Worksheets("Sheet2")
  
  'myWsにいろいろ記述。
  myWs.Columns(1).Value = oriWs.Columns(1).Value
  Range("B1:M1") = Array("4", "5", "6", "7", "8", "9", "10", "11", "12", "1", "2", "3")
  Range("B1:M1").NumberFormatLocal = "0""月"""
  
  '4月から始まる場合の処理がよくわかんないから、
  'ちょっとひねくれて処理をしてみる。
  For i = 2 To CInt(oriWs.Range("A65536").End(xlUp).Row)
    myMon = Month(oriWs.Range("B" & i).Value)
    myVal = oriWs.Range("C" & i).Value
    For j = 2 To 13
      If myWs.Cells(1, j).Value = myMon Then
        Cells(i, j).Value = myVal
      End If
    Next j
  Next i
  
End Sub

0 hits

【30566】月毎の集計方法についてです ebi 05/10/31(月) 0:34 質問
【30576】Re:月毎の集計方法についてです ちくたく 05/10/31(月) 10:20 回答
【30580】Re:月毎の集計方法についてです ちくたく 05/10/31(月) 11:28 発言
【30579】Re:月毎の集計方法についてです とまと 05/10/31(月) 11:26 発言
【30581】Re:月毎の集計方法についてです Statis 05/10/31(月) 11:43 回答
【30583】Re:月毎の集計方法についてです とまと 05/10/31(月) 13:50 回答
【30599】みなさん、ありがとうございました ebi 05/10/31(月) 17:07 お礼

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