½Ð°Ý¼Ï¯Ã«á¦p¦ó§Ö³tÂ^¨ú©Ò»ÝªºÄæ¦ì¶K¦b¥tÓÀÉ®×
- ©«¤l
- 9
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2010-10-11
- ³Ì«áµn¿ý
- 2014-1-6
|
½Ð°Ý¼Ï¯Ã«á¦p¦ó§Ö³tÂ^¨ú©Ò»ÝªºÄæ¦ì¶K¦b¥tÓÀÉ®×
½Ð°Ý¦³¤@Ó³øªí(¦pªþ¥ó)¦b9¤ë¥÷Äæ¦ì,¬O¨Ì¾Ú¸ê®ÆÀɪº¼Ï¯ÃSHEET¶K¦Ü³øªíÀɦӨӦӨÓ
¦]¬°¨CӤ볣nupdate QTYªº¸ê®Æ,
¦³¨S¦³¤°»ò¤è¦¡¦b¸ê®ÆÀɼϯ繫á,¥i¥H¦b¶}±Ò"³øªí"ÀÉ®×®É,¤U«ü¥O»Ýnupdateªº¤ë¥÷«á,´N¥i¦Û°Êupdate¸ê®Æ?
ÁÂÁÂ
³øªí.zip (7.08 KB)
¸ê®ÆÀÉ.zip (11.61 KB)
|
|
Jessica
|
|
|
|
|
- ©«¤l
- 161
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-9-16
- ³Ì«áµn¿ý
- 2017-2-19
|
¦^´_ 1# jessicamsu
«ö"F5"Áä |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 242
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-8
|
¦^´_ 1# jessicamsu
³øªí¬¡¶Ã¯ªºThisWorkbook¼Ò²Õ- Private Sub Workbook_Open()
- Dim PT As PivotTable, A As Range, s%, yn As Boolean, k%, Wb As Workbook, fs$
- Sheets("Sheet1").Columns("A:D").Clear
- fs = ThisWorkbook.Path & "\¸ê®ÆÀÉ.xlsx"
- Set Wb = Workbooks.Open(fs)
- Set PT = Wb.Sheets("¼Ï¯Ã").PivotTables(1)
- With PT
- 10
- s = InputBox("¿é¤J¤ë¥÷", , 9)
- If IsNumeric(Application.Match(s, .ColumnFields("¤ë¥÷").DataRange, 0)) Then
- s = Application.Match(s, .ColumnFields("¤ë¥÷").DataRange, 0)
- Else
- MsgBox "µL¦¹¤ë¥÷": GoTo 10
- End If
- For Each p In Array("¦a°Ï§O", "«È¤á", "²£«~")
- Set A = .PivotFields(p).DataRange
- If Application.CountBlank(A) > 0 Then yn = True Else yn = False
- Sheets("Sheet1").[A1].Offset(, k).Resize(A.Rows.Count, 1).Value = A.Value
- If yn = True Then Sheets("Sheet1").[A1].Offset(, k).Resize(A.Rows.Count, 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
- Sheets("Sheet1").[A1].Offset(, k).Resize(A.Rows.Count, 1) = Sheets("Sheet1").[A1].Offset(, k).Resize(A.Rows.Count, 1).Value
- k = k + 1
- Next
- Sheets("Sheet1").[A1].Offset(, k).Resize(A.Rows.Count, 1).Value = .DataBodyRange.Columns(s).Value
- End With
- Wb.Close 0
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|