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

[µo°Ý] ½Ð°Ýµù¸Ñªº¦r¥i¥HÅܰʶÜ

[µo°Ý] ½Ð°Ýµù¸Ñªº¦r¥i¥HÅܰʶÜ

¦pªþ¥ó
¦pªGe12ªº­ÈÅܬ°100
¨ºµù¸Ñªº¼Æ¦r¥i¥HÅܦ¨¦h500¶Ü(µù¸Ñªº¦r¥i¥HÀH­ÈÅܰʶÜ)

¬¡­¶Ã¯1.rar (5.19 KB)

jeason

§Ú¥u·|¥Îµù¸Ñªº¤è¦¡...¸Õ¸Õ.
E8Äæ¦ì¥²¶·¥ý¦³µù¸Ñ
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   
  3.   With Sheets("¤u§@ªí1")
  4.     If Target.Row = 12 And Target.Column = 5 Then
  5.       If .Cells(8, 5) <> "" Then
  6.         Dim str As String
  7.         str = "¦¹¼Æ¦r¤ñe12ªº­È¤j" & .Cells(8, 5) - .Cells(12, 5)
  8.         .Range("e8").Comment.Text Text:=str
  9.       End If
  10.     End If
  11.   End With
  12.   
  13. End Sub
½Æ»s¥N½X
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

¦^´_ 1# brabus


Åܧóµù¸Ñ¤å¦r­n¾avba

Åܧó¹Ï®Ø¤ºªº¤å¦r°µªk
¦bA1¿é¤J="¦¹¼Æ¦r¤ñe12ªº­È¤j"&E8-E12
¿ï¨ú¹Ï®Ø
¦b¸ê®Æ½s¿è¦C¿é¤J=$A$1
§Æ±æ¬O±z­nªº¥\¯à
Åܧó¹Ï®Ø¤º¤å¦r.rar (5.24 KB)
¾÷¾¹¤H¤T¤j©w«ß-«OÅ@¤HÃþ¡BªA±q©R¥O¡B«OÅ@¦Û¤v
§Úªº¤T¤j©w«ß-¥Í©R¡B¥Í¦s¡B¥Í¬¡

TOP

·PÁÂ2¦ìªº¸Ñµª
³oªº°ª¤â¤Ó¦h¤F
ÁÂÁÂ
jeason

TOP

¦^´_  brabus


Åܧóµù¸Ñ¤å¦r­n¾avba

Åܧó¹Ï®Ø¤ºªº¤å¦r°µªk
¦bA1¿é¤J="¦¹¼Æ¦r¤ñe12ªº­È¤j"&E8-E12
...
asimov µoªí©ó 2010-10-5 23:40



    ½Ð°Ý¦pªG§Ú­nÅýµù¸Ñ¥X²{¦b¤£¦Pªº®æ¤lªº¸Ü©O,­n«ç¼Ë³]©w
¤ñ¤è»¡eÄ榳600,500,400,300,200,100µ¥¶µ¥Ø
¬YÄ榳­pºâ­È,·í¥L­pºâ«áªº¼Æ¦r¬O400®É,400¨ºÄæ¥X²{¹Ï¤å®Ø,·í¥L­pºâ«áªº¼Æ¦r¬O600®É,600¨ºÄæ¥X²{¹Ï¤å®Ø,
³o­n«ç¼Ë§@©O
jeason

TOP

¦^´_ 5# brabus
½Ð¤W§Aªº½d¨Ò . Ãþ¦ü¦p¦¹¶Ü?
Åܧó¹Ï®Ø¤º¤å¦r.rar (10.79 KB)

TOP

¦^´_ 6# GBKEE


    ÁÂÁ±zªº¦^ÂÐ
¥i¬O¤£¬O§Ú¬Èªº®ÄªG
¦pªG¦bb3¿é¤Jsdd«h¦bsdd³B¥X²{¹Ï¤å®Ø
¦pªG¦bb3¿é¤Jggg«h¦bddd³B¥X²{
¦³¥i¯àsdd©MgggÂ÷7~8­Ó®æ¤l©Î10­ÓÀx¦s®æ
¥þ¬Ýb3­pºâ«áªº¼Æ¦r¨M©w
jeason

TOP

¦^´_ 7# brabus
§A¨Sªþ¤WÀÉ®× µ¹½d¨Ò «ÜÃø²z¸Ñ°Ú!!!

TOP

¦^´_ 8# GBKEE


    ½Ð¬Ý¬ÝÅo

¬¡­¶Ã¯1.rar (3.13 KB)

jeason

TOP

¦^´_ 9# brabus
½Ð¬ÝªþÀÉ

Åܧó¹Ï®Ø¤º¤å¦r.rar (11.53 KB)

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD