|
▼Ned さん:
おぉー
おはようございます。無理言ってすみません。
>>マクロの記録だと範囲は限定されたり色々制限ありますので、
>...んん...これを解析するよりピボットベース+ひと工夫。の方がラクな気はしま>>すけど
確かにピポットテーブルでもやってみましたがほんの数秒でした。
はぁ・・??ただそのひと工夫ががが難しのですよ素人には・・・。
>ちょっと手抜きしてます。&眠いので今日はここまでネm(_ _)m
ごめんさい。_(_^_)_
Nedに作っていただいたものとまえのものよく比較し、
役に立てたいと思います・・・・・
寝込みを襲うようで申し訳ないですが↓のほうもよろしくお願いします。
Sub test()
Dim rs As Object
Dim mysql As String
If open_ado_excel(ThisWorkbook.FullName) = 0 Then
mysql = "Transform iif(isnull(Count(不良本数)),0,Count(不良内容)) " & _
"Select ロット,品名 From [Sheet1$] Group By ロット,品名 " & _
"Pivot 不良内容;"
If get_exec_sql(mysql, rs) = 0 Then
With Worksheets("Sheet2")
.Cells.ClearContents
.Range("a2").CopyFromRecordset rs
For idx = 0 To rs.fields.Count - 1
.Cells(1, idx + 1).Value = rs.fields(idx).Name
Next
End With
Call rs_close(rs)
Else
MsgBox "rs error"
End If
Call close_ado
Else
MsgBox "cn error"
End If
End Sub
(-_-;)(-_-;)(-_-;)
|
|