- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 10# myleoyes - Sub ½m²ß1() '¥[
- ¦ì²¾AZ
- ag:
- Dim ZZ As Range, E As Range, M
- On Error Resume Next
- Set ZZ = Application.InputBox("½Ð¤£§[½ç±Ð!", " ½Ð±Ð«e½úÌ!!", "¢C ½ÐÂI¿ïAZÄæ ¢C", Type:=8)
- If ZZ <= 0 Then Sheet2.[I1] = 2: Exit Sub
- For Each E In ZZ.Cells
- M = IIf(M = "", "=", M & "+") & IIf(E = "", "0", E)
- Next
- ThisWorkbook.Sheets("¸ê®Æ").[$M$1] = M
- End Sub
½Æ»s¥N½X ¥ÒÀɦpªG´«¦¨¤AÀÉ´NµLªk¨Ï¥Î -> n¦p¦ó¨M©w¨Ï¥Î ¥ÒÀɩΤAÀÉ- Sub ¦ì²¾AZ()
- With Windows("¥ÒÀÉ.xls")
- .Activate
- .ScrollColumn = 52
- .ScrollRow = ActiveSheet.Range("AO" & Rows.Count).End(xlUp).Row
- End With
- End Sub
½Æ»s¥N½X |
|