ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA Àx¦s®æ©ñ¦hµ§¸ê®Æ

[µo°Ý] VBA Àx¦s®æ©ñ¦hµ§¸ê®Æ

¦U¦ìVBA°ª¤â¤j®a¦n
¤p§Ì¦³¤@¨Æ·Q½Ð±Ð
¤p§Ì¼gªºVBAµ{¦¡¦p¤U
Sub ¥æ´Á()

Dim MO(100, 12)
Sheets("MO").Select

X = 2
Do While Cells(X, 1) <> ""
  X = X + 1
Loop

For X1 = 2 To X
For Y1 = 1 To 12
MO(X1, Y1) = Cells(X1, Y1)
Next
Next
Cells(1, 15) = "§Æ±æ¥æ´Á"
For X1 = 2 To X - 1
If MO(X1, 12) > 0 Then
    Cells(X1, 15) = ""
Else
For X2 = 2 To X - 1
    Do While MO(X1, 12) + MO(X2, 10) < 0
        If MO(X2, 4) = "¶i³f" Then
        Cells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6) & Chr(10)     
        End If
        X2 = X2 + 1
    Loop
    Exit For
   
Next
   
End If
Next
End Sub

¤p§Ì·Q­n¦b
Cells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6) & Chr(10)  
¦P¤@Àx¦s®æ¯à°÷Åã¥Ü¥X¦³­pºâ¹Lªº ¤é´Á¸ò¼Æ¶q
¦ý«ç»ò§ï³£¥u¦³³Ì«á¤@µ§
½Ð°Ý¸Ó¦p¦ó­×§ï¤~¯àÅý
Cells(X1, 15) ¯à°÷Åã¥Ü¦h¸ê®Æ©O?

¦^´_ 1# fantersy

¸Õ¸Õ¬Ý

§âCells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6) & Chr(10)  ´«¦¨


if Cells(X1, 15) ="" then
    Cells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6)  '¦pªG¦¹Àx¦s®æ¬OªÅ¥Õªº
else
    Cells(X1, 15) = Cells(X1, 15) &  Chr(10)   & MO(X2, 3) & ">>" & MO(X2, 6)  '¦pªG¤£¬OªÅ¥Õ
end if
PKKO

TOP

¦^´_ 2# PKKO


    «z~¥i¥H¤F:'(
¤Ó·PÁÂ Bob¤j¤j¤F:D

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD