Excel VBA質問箱 IV

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

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


4133 / 13646 ツリー ←次へ | 前へ→

【58265】複数のキー項目をまとめ次レコードの有無により定数の値を変えたい。 gon 08/10/15(水) 17:21 質問[未読]
【58274】Re:複数のキー項目をまとめ次レコードの有... neptune 08/10/15(水) 22:16 発言[未読]

【58265】複数のキー項目をまとめ次レコードの有無...
質問  gon  - 08/10/15(水) 17:21 -

引用なし
パスワード
   bvaでわからないのですが
複数のキー項目を一まとめにし、次のレコードがあった場合は[,]次のレコードがない場合は[cmmit]といれるvbaをつくりたいのですがうまくいきません。
こんなテーブルを
a  b  c
1 あ ア
1 い イ
1 う ウ
2 か カ

↓こんなのにしたいのですが
1 あ ア,い イ,う ウcommit

現在
Sub Lesson1()
  Dim io As Integer
  Dim v, i As Long
  Dim ss As String
  Dim myPath As String
  
  v = [A1].CurrentRegion.Value 'A列で Sort済み
  io = FreeFile()
  myPath = ActiveWorkbook.Path & "\"
  For i = 1 To UBound(v)
    If v(i, 1) <> ss Then
      If Len(ss) Then Close io
      ss = v(i, 1)
      Open myPath & ss & ".txt" For Output As io
      Print #io, ss; vbTab; '' A 列出力追加。これも行を継続。
    End If
    Print #io, v(i, 2); vbTab; v(i, 3); vbTab; '' 行を継続。
  Next
  Close io
  MsgBox "出力しました"
End Sub
状態です。アドバイスお願いします。

【58274】Re:複数のキー項目をまとめ次レコードの...
発言  neptune  - 08/10/15(水) 22:16 -

引用なし
パスワード
   ▼gon さん:
こんにちは

まず、マルチポストがなぜ嫌われるか。以下を読んでみて下さい。
ht tp://dobon.net/vb/bbs/index.html#multipost
後、向こうで既にやってますが、質問の後出し(実は・・って奴)も答える気が
失せます。

>をつくりたいのですがうまくいきません。
では、何がわからないのかわかりません。
回答者に無駄な想像はさせないようにしましょう。

>次のレコードがあった場合は[,]次のレコードがない場合は[cmmit]といれる
UPされたサンプルデータと、望む結果を見てもレコードとレコードの関係が
わからない。
どうやって、次のレコードが無いと判断するのかわからない。
※gon さん自身がこれがわからないのかな???

>状態です。アドバイスお願いします。
今のソースを理解しましょう。そうすれば質問も具体的になります。

もう少し具体的に質問すれば、もっと良いアドバイスが頂けます。

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