Excel VBA質問箱 IV

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

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


67406 / 76732 ←次へ | 前へ→

【13883】Re:誰か教えて下さい
回答  Hirofumi E-MAIL  - 04/5/15(土) 17:59 -

引用なし
パスワード
   変ですね?

当方では、標準モジュールに記述して動いているのですが?
最も、Sheet1のコードモジュールに記述しても動いています

シート名若しくは、シート名の記述が違うのでは?
変更した、コードをUpして、記述場所を教えてください

尚、西暦年するなら以下の様に成ります

Public Sub Test()

  Dim i As Long
  Dim vntData As Variant
 
  vntData = Worksheets("Sheet1").Range("C2:C79").Value
 
  For i = 1 To UBound(vntData, 1)
    vntData(i, 1) _
      = Format(DateValue(vntData(i, 1) & "/1/1"), "yyyy")
  Next i
 
  Worksheets("Sheet2").Range("N2:N79").Value = vntData

End Sub
0 hits

【13865】誰か教えて下さい いちご 04/5/15(土) 14:18 質問
【13870】Re:誰か教えて下さい Hirofumi 04/5/15(土) 15:34 回答
【13872】Re:誰か教えて下さい いちご 04/5/15(土) 16:17 発言
【13875】Re:誰か教えて下さい Hirofumi 04/5/15(土) 17:09 回答
【13878】Re:誰か教えて下さい いちご 04/5/15(土) 17:35 発言
【13879】Re:誰か教えて下さい いちご 04/5/15(土) 17:37 発言
【13883】Re:誰か教えて下さい Hirofumi 04/5/15(土) 17:59 回答

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