目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
28 / 118 ツリー ←次へ | 前へ→

【261】ユーザー定義型は定義されていません の対処 KN 10/1/27(水) 10:49 Excel[未読]
【262】Re:ユーザー定義型は定義されていません の対... Jaka 10/1/27(水) 11:04 全般[未読]

【261】ユーザー定義型は定義されていません の対処
Excel  KN  - 10/1/27(水) 10:49 -

引用なし
パスワード
   以下の、マクロを書いたのですが、いろいろなところで、「ユーザー定義型は定義されていません」と表示されてしまい、そもそもかいたものがちゃんと動くかどうかも検証できません。

全くの初心者ゆえこのような漠然とした質問が許されるとも思ってはおりませんが、まったくどうしたらいいかわからず、幼稚な質問をあげることお許しください。

アドバイスをいただければ幸いです。よろしくお願いします。

Sub makingcollection()
'【格納パート】
'とりあえず全てのシートの注文番号がついているものを配列に、
'注文内容、取引先、納期、金額の順に格納する


  Dim vList() As String
  Dim c As Long
  Dim d As Long
  Dim m As Long
  Dim ws As worksheeet
  Dim chck As String
  c = 0
  
For Each ws In Worksheet
  m = ws.Range("B65536").End(xlUp).Value
  For d = 16 To m
    ws.Range("b" & d).Value = chck
    If chck <> "" And Left(chck, 1) <> "(" Then '空白かカッコで始まる場合無視
      ReDim Preserve st(c)
      vList(0, c) = ws.Range("B" & d).Value
      vList(1, c) = ws.Range("C" & d).Value
      vList(2, c) = ws.Range("D" & d).Value
      vList(3, c) = ws.Range("E" & d).Value
      vList(4, c) = ws.Range("G" & d).Value
      c = c + 1
    End If
  Next

Next

'【出力パート】
'フォーマットつくり
  Worksheets.Add.Name = "総括"
  
  Range("A1").Value = "注文番号"
  Range("B1").Value = "注文内容"
  Range("C1").Value = "取引先名称"
  Range("D1").Value = "納期"
  Range("E1").Value = "発注金額"

'出力
  Dim cx As Long
  
  For cx = LBound(st, 2) To UBound(st, 2)
    Range("A" & cx + 1).Value = vList(0, cx)
    Range("B" & cx + 1).Value = vList(1, cx)
    Range("C" & cx + 1).Value = vList(2, cx)
    Range("D" & cx + 1).Value = vList(3, cx)
    Range("E" & cx + 1).Value = vList(4, cx)
  Next
  
End Sub

【262】Re:ユーザー定義型は定義されていません の...
全般  Jaka  - 10/1/27(水) 11:04 -

引用なし
パスワード
   上の方に書いてある↓をよく読んでください。

●「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

>  Dim ws As worksheeet
           ↑
          ???

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
28 / 118 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free