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

[µo°Ý] excel ¥¨¶°µLªk¹³excel¤º«Ø¤½¦¡¤@¼Ë¶Ü?

[µo°Ý] excel ¥¨¶°µLªk¹³excel¤º«Ø¤½¦¡¤@¼Ë¶Ü?

¥»©«³Ì«á¥Ñ PKKO ©ó 2013-8-10 16:22 ½s¿è

¨Ò¦p
IF COUNTA("a1:a7") >5 then
Rows("1:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

©ÎªÌ¬O
dim BB =RANGE("A1")
Rows("1:BB").select

°ÝÃD¤@¡G¥¨¶°¤ºµLªk¨Ï¥Î¤@¯ëEXCELªº¤º«Ø¤½¦¡¶Ü
°ÝÃD¤G¡GRows¤º­n¦p¦ó¿é¤JÅܼÆ(§Ú¥uª¾¹Dcells¥i¥H)
PKKO

·PÁ¡A¨ü¯q¨}¦h
¦ý·Q½Ð±Ð
Sub AA()
If Application.CountIf(Range("a1:a7", "2")) > 5 Then
Range("B1") = 5
End If
End Sub

¹³³oºØªº¤½¦¡´NµLªk¨Ï¥Î¶Ü?¤@©w­n()¥u¿ï¨ú½d³òªº¤~¯à¨Ï¥Î¦bVBA¤º¶Ü
PKKO

TOP

·PÁ¦U¦ì¤j¤j¡A¤p§Ì¨ü¯q¨}¦h
·Q¦A½Ð±Ð¤@­Ó°ÝÃD
³Ìªñ¬Ý®Ñµo²{¡AVBA¥i¥H¶}±Ò"¤pºâ½L"©Î¬O¥ô¦ó¤@­Óµ{¦¡(¥u­nª¾¹Dµ{¦¡©ñ¸m¦ì¸m§Y¥i)
¦ýVBA¥i¥H¶¡±µ¾Þ§@¨ä¥L³nÅé¶Ü?
EX:¾Þ§@µ§°O¥»¡BEmEditor
PKKO

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD