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

[µo°Ý] ¦p¦ó¼g²Å¦X±ø¥ó«á¥ÎMXGBOX¤è¦¡ªí¥Ü

[µo°Ý] ¦p¦ó¼g²Å¦X±ø¥ó«á¥ÎMXGBOX¤è¦¡ªí¥Ü

½Ð±Ð¦U¦ì¤j¤j ¤p§Ì¦³¤@­Ó¸ê®Æ®w ¸Ì­±¦³¤H¦W¡A¥[¯Z¤p®É¡A¤ë¥÷µ¥µ¥¸ê®Æ

¤p§Ì§Ú·Q¼W¥[¤@­Ó¥\¯à¬O¦b¿é¤Jªº®É­ÔÅã¥Ü"³o­Ó¤H"¦b"³o­Ó¤ë"ªº"¤u§@®É¼Æ"¦³¨S¦³¶W¹L30¤p®É

¦pªG¦³«h¥ÎMsgbox¤è¦¡ªí¥Ü¡A¦p¨S¦³«h¤£Åã¥Ü

¦]¬°§A¨S¦³¸Ô²Óªº¸ê®Æ
§Ú¥u¯à¹w³]
A1Àx¦s®æ¬°³o­Ó¤ëªºÁ`¥[¯Z®É¼Æ
B1¬°¤H¦W
C1¬°¤ë¥÷


Sub test1()
Dim I As Integer
'­pºâA1¨ìA100¦@¦³´X­Ó¶µ¥Ø,´N¶]´X¦¸°j°é
For I = 1 To Application.WorksheetFunction.CountA(Range("a1:a100"))
If Cells(1, 1) > 30 Then MsgBox Cells(1, 2) & "¦b" & Cells(1, 3) & "¤ë¥÷,Á`¤u§@®É¼Æ¬°" & Cells(1, 1) & "¤p®É"
Next I

End Sub
PKKO

TOP

¥ÎPKKO´£¨Ñªº¤èªk,¦A¥[¤Wworksheet_change
¥i¥H¹F¨ì¿é¤Jªº®É­ÔÅã¥Üªº®ÄªG.

¦pªG¯à´£¨ÑEXCEL/­¶­±¦ì¸m,¥i¥H§ó©ö¸Ñ释µ¹§A聴
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 2# PKKO


    ·PÁ¤j¤jªº±Ð¾É¡A¥u¬O§Ú»Ý­n¦bMAGBOXÅã¥Ü«e¥ý¤ñ¹ï    §Ú¿é¤Jªº³oµ§¸ê®Æ"³o­Ó¤H"¦b"³o­Ó¤ë"ªº¥[¯Z®É¼Æ¥[Á`  

»Ý­n¦P®É²Å¦X¤ë¥÷¡B©m¦W    ¸òSUMIFS¨ç¼Æ¤@¼Ë(2­Ó±ø¥ó)¡A¥u¬O¤£À´±o¦p¦ó¦bVBA¸Ì¥Îµ{¦¡½X¥h§PÂ_«á¥[Á`

TOP

¦^´_ 3# kimbal


    ÁÂÁª©¥Dªº´£¿ô¡A¦]¬°ÀÉ®×ùØ­±¦³­Ó¸ê©Ò¥H¤£¤è«K´£¨Ñ¤W¨Ó.............

TOP

ÁÙ¬O´£¨Ñ½d¨Ò§a!
¤£µMµLªk¼g¥X±zªº»Ý¨D
§â­Ó¤H¸ê®Æ§R°£´«¦¨ABC§Y¥i
PKKO

TOP

¦^´_ 6# PKKO

ªþ¤WÀÉ®×~~

OT Keyin.rar (113.43 KB)

TOP

§Aªþ¤W¤FÀÉ®×,¦ý¬Ý¤£¤ÓÀ´§AªºÀÉ®×...
PKKO

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-28 05:06 ½s¿è

¦^´_ 7# ¤pµØ
  1. Workbooks.Open Filename:=y.Range("L20") '¶}±Ò¸ê®Æ®w
½Æ»s¥N½X
'§Aªº¸ê®Æ®w¬O¦bWorkbooks.Open¸Ì,ÁÙ¬O[OT  Keyin.xlsm]!DataBasa
  1. Private Sub Enter_Click()
  2.     Dim Rng As Range, The_allTime As Single, AddTime As Single, Msg As Boolean
  3.     If ComboBox1 <> "" And Year01 <> "" And Month01 <> "" Then
  4.                 With Sheets("DataBasa")
  5.             Set Rng = .Range("a6").CurrentRegion    '¸ê®Æ®w
  6. '*******************³]¸ê®Æ®w·Ç«h
  7.             .Cells(1, .Columns.Count) = "¤é´Á±ø¥ó"  '±ø¥ó¦¡·Ç«hÄæ¦ì¦WºÙ,¶·»P¸ê®Æ®wªºÄæ¦ì¦WºÙ¤£¬Û¦P
  8.             .Cells(2, .Columns.Count) = "=AND(YEAR(¤é´Á)=" & Year01 & ",MONTH(¤é´Á)=" & Month01 & ")"
  9.             
  10.             .Cells(1, .Columns.Count - 1) = "©m¦W" ' "Á`¤u®É"
  11.             .Cells(2, .Columns.Count - 1) = ComboBox1
  12.             
  13.             The_allTime = Application.DSum(Rng, "Á`¤u®É", .Cells(1, .Columns.Count - 1).Resize(2, 2))
  14.             'Application.DSum  ¸ê®Æ®w¨ç¼Æ(H0 °Ñ¼Æ:=¸ê®Æ®w,°Ñ¼Æ:=Äæ¦ì,°Ñ¼Æ:=·Ç«h±ø¥ó) ¥[Á`
  15.             If The_allTime > 30 Then
  16.                 Msg = True
  17.                 MsgBox ComboBox1 & "  " & Year01 & "/" & Month01 & "¥[¯Z®É¼Æ " & The_allTime
  18.                
  19.             ElseIf ComboBox6 <> "" And ComboBox5 <> "" Then
  20.                 AddTime = (TimeValue(ComboBox6) - TimeValue(ComboBox5)) * 24  '·s¼W¥[¯Z®É¼Æ
  21.              If The_allTime + AddTime > 30 Then     '¥H¥[¯Z®É¼Æ+·s¼¨¯Z®É¼Æ
  22.                 Msg = True
  23.                 MsgBox ComboBox1 & "  " & Year01 & "/" & Month01 & "¥[¯Z®É¼Æ " & The_allTime & " + " & AddTime
  24.              End If
  25.             End If
  26.         End With
  27.     End If
  28.     If Msg Then Exit Sub   '¦³¶W¹L30¤p®É,Â÷¶}µ{¦¡

  29. Set w = Sheets("DataBasa")
  30. Set Y = Sheets("Base")
  31. AAAA = ""
  32. '§AÄ~Äò¤U¥hªºµ{¦¡½X
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE


    ·PÁª©¤j~~§Ú¥ý¨Ó®ø¤Æ¤@¤U§A¼gªºµ{¦¡½X~~

§Úªº¸ê®Æ®w¬O¦b[OT  Keyin.xlsm]!DataBasa

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD