µ{¦¡¦p¦ó¼g¤ñ¸û¶¶ºZ§Ö³t

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!!°ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!
Sub ½m²ß()
    With Sheets("½m²ß")
      [AG3] = "=AB2-SUM(AD2/2,AE2,AA3,AC3/2)": [AI3] = "=AG3/(AA3+AC3/2)"
      .Range("V" & Rows.Count).End(xlUp)(2, 1).Select: Selection = Date: ActiveCell.Offset(0, 1).Select
      ZZ = Application.InputBox("½Ð¿é¤J¼Æ¦r", "½m²ß¸ê®Æ", Type:=1)
      If ZZ <= 0 Then ActiveCell.Offset(0, -1) = "": [AG3,AI3] = "": End
      ActiveCell = ZZ: ActiveCell.Font.ColorIndex = 7: ActiveCell.Offset(0, 1).Select
ag:
      ZZ = Application.InputBox("½Ð¿é¤J¼Æ¦r", "¼Æ¾Ú¸ê®Æ", Type:=1)
      If ZZ <= 0 Then GoTo ag
      ActiveCell = ZZ: ActiveCell.Offset(0, 2).Select
      [Z3:AI3].Copy: ActiveSheet.Paste: Calculate: [AG3,AI3] = "": Application.CutCopyMode = False
      ActiveCell.Offset(, 2) = "": ActiveCell.Offset(, 4) = "": ActiveCell.Offset(, 5) = "": ActiveCell.Offset(, 8) = ""
      .Range("AC" & Rows.Count).End(xlUp).Select
      If Selection <= 150 Then Selection = 200: ActiveCell.Font.ColorIndex = 7
      .Range("AG" & Rows.Count).End(xlUp).Select: ActiveCell.Font.ColorIndex = 10
      .Range("AI" & Rows.Count).End(xlUp).Select
      If Selection < 0 Then ActiveCell.Font.ColorIndex = 3
: Calculate: .Columns("V:AI").EntireColumn.AutoFit
      End With
      ActiveWorkbook.Save
End Sub

myleoyes

¦^´_ 2# GBKEE
¨}®v!ÁÂÁÂ!µ{¦¡OK! ¤U­Ó½d¨Ò¦A³Â·Ð¤@¤U
      ·íÀx¦s®æ¸Ñµù¤º®eªº³Ì«á¨â­Ó¦r¬O°tªÑ
        µ{¦¡´N·|§ïÅÜÀx¦s®æªºÃC¦â
        ¨Ò¦pD3¸Ñµù=Ápµú°tªÑÅÜÃC¦â
                D4¸Ñµù=Ápµú°t®§¤£·|ÅÜÃC¦â
                D5¸Ñµù=¥x¿n¹q°tªÑ¤]ÅÜÃC¦â
        ¦p¦ó­×§ï¦¹µ{¦¡¤~¯à¦X¥G»Ý¨D
Sub ªÑ§Q©Ò±o()
Again:
    ZZ = Application.InputBox("¿é¤Jª÷ÃB", "½Ð¿é¤JªÑ§Q¦¬¤J", "10,000", Type:=1)
    [A15] = ZZ
    If ZZ > 10000000 Then [A15] = 10000000
    If [A15] = False Then [A15] = "": End
    If ZZ <= 5000 Then MsgBox "ªÑ§Q¦¬¤J¤Ö©ó©Îµ¥©ó5000¤£¦©¸É¥R«O¶O¡I¡I": [A15] = "": GoTo Again
    [A15] = [A14] * [A15]
    With Sheets("À³¦©ÃB")
      .[A15].Copy .[D100].End(xlUp)(2, 1)
      .[D15:D100].Font.ColorIndex = 7
      .Range("D" & Rows.Count).End(xlUp).Select
      If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment
       ZZ = InputBox("½Ð¿é¤JªÑ²¼¦WºÙ»P°t®§©Î°tªÑ", "¸Ñµù", " °t®§ ©Î°tªÑ", 0)
    If ZZ = "" Then ActiveCell.Comment.Delete: Exit Sub
       ActiveCell.Comment.Text Text:=ZZ
      If ActiveCell.Comment.Text = "°tªÑ" Then ActiveCell.Font.ColorIndex = 5
      [A15] = "": [D15].Select
    End With
End Sub
     ¨}®v!½Ð¦A¨¯­WÅo!ÁÂÁ¦A¤T!!

myleoyes

¦^´_ 4# GBKEE
¨}®v!ÁÂÁÂ!µ{¦¡OK!¤£¦n·N«ä³o­Ó½d¨Ò¦A³Â·Ð¤@¤U
Sub Ex()
            Selection = CDate(Application.Ceiling((DateSerial(Year(Date), 1, 1) - 7) / 7, 1) * 7 + 7
* 3)
            Selection.Offset(0, 1) = "=IF(ISNUMBER(MATCH(A1,EDATE(A22,{0,6,12})-(WEEKDAY(EDATE(A22,
{0,6,12}),2)-6),0)),""ºû­×""&LOOKUP(A1,EDATE(A22,{0,6,12})-(WEEKDAY(EDATE(A22,{0,6,12}),2)-6),
{1,2,0})&""¦¸"",INDEX(EDATE(A22,{12,6,0})-(WEEKDAY(EDATE(A22,{12,6,0}),2)-6),MATCH(A1,EDATE(A22,
{12,6,0})-(WEEKDAY(EDATE(A22,{12,6,0}),2)-6),-1)))"
           End Sub
        ·íÂI¿ïA22®É,µ{¦¡¦bB22¼g¤J=IF(ISNUMBER(MATCH(A1,EDATE(A22,{0,6,12})-....,-1)))¤½¦¡
        ¦ý°ÝÃD¬O·íÂI¿ïA25®É,µ{¦¡¦bB25¼g¤JªºÁÙ¬O"=IF(ISNUMBER(MATCH(A1,EDATE(A22,{0,6,12})-....,-
1)))"  ¤½¦¡
        ¤]´N¬O»¡ A22 ¨ÃµLªkÅܦ¨ A25
        ¤£ª¾¦³¤è¦¡¥i¥H¸Ñ¨M¦¹ÃøÃD
        ½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 6# GBKEE
¨}®v!ÁÂÁÂ!¬°¦ó?«ö¶s·|¬O¿ù»~°T®§©O?   
       =IF(ISNUMBER(MATCH('A1',EDATE(A24,{0,6,12})...
       A1¬°¦óÅܦ¨'A1'
      ¦pªþÀÉ©Ò¥Ü
     ½Ð¦A³Â·Ð«ü¾ÉÁÂÁ¦A¤T!!¨¯­WÅo!

myleoyes

¦^´_ 8# GBKEE
«e½ú!«D±`ÁÂÁ«ü¾É...
¨}®v!ÁÂÁÂ!­ì¨Ó¦p¦¹!¬p¶Õ°Õ!¤S¨Ó¤@ÃD
·Ó§Aªº«ü¾Éµe¸¬ÄªÁÙ¬Oµe¤£¥X¨Ó
µn¤Jµ{¦¡¹ê¦b¨S¿ìªk
¼g¤Jµ{¦¡«j±j¥i¥H°õ¦æ
°õ¦æµ²ªG¦p°Êµe©Ò¥Ü
½Ð¦A«ü¾É¯uªº·P®¦ÁÂÁ¦A¤T!!
Sub µn¤J()
    With Sheets("¾Ç²ß")
ag:
       ZZ = Application.InputBox("½Ð¦bBÄ椤¿ï¨ú¸ê®Æ", "¸ê®Æµn¤J", Type:=2)
       If ZZ = "" Then Selection = "": End
       If ZZ = False Then Selection = "": End
       .Range("N" & Rows.Count).End(xlUp)(2, 1).Select
       ActiveCell = ZZ: ActiveCell.Offset(0, 1) = [C5]
      ' ¦pªG¿ï¨ú¨Ã«DBÄæ¸ê®Æ  Then MsgBox "¿ï¨úªº¸ê®Æ¨Ã«DBÄæ©Ò¦³¡I¡I½Ð­«·s¿ï¨ú": GoTo ag
ag1:
       ZZ = Application.InputBox("½Ð¦bBÄ椤¿ï¨ú¸ê®Æ", "¸ê®Æµn¤J", Type:=1)
       If ZZ = False Then ¼g¤J: End
       .Range("N" & Rows.Count).End(xlUp)(2, 1).Select
       ActiveCell = ZZ: ActiveCell.Offset(0, 1) = [C7]
       ' ¦pªG¿ï¨ú¨Ã«DBÄæ¸ê®Æ  Then MsgBox "¿ï¨úªº¸ê®Æ¨Ã«DBÄæ©Ò¦³¡I¡I½Ð­«·s¿ï¨ú": GoTo ag1
       GoTo ag1
    End With
End Sub
Sub ¼g¤J()
    Dim Rng As Range
ag:
    With Sheets("¾Ç²ß")
    Set Rng = Sheets("¾Ç²ß").Range("U" & Rows.Count).End(xlUp)(2, 1)
       ZZ = Application.InputBox("½Ð¿é¤J¼Æ¦r", "¼Æ¦r", Type:=1)
       If ZZ <= 0 Then GoTo ag
        With Rng.Cells(1, -4)
            .Value = ZZ
            .NumberFormatLocal = "#,##0_ ;[¬õ¦â]-#,##0 "
            .Font.ColorIndex = 10
        End With
     End With
      With Sheets("¾Ç²ß")
      Set Rng = Sheets("¾Ç²ß").Range("N" & Rows.Count).End(xlUp)(1, 1)
      With Rng.Cells(1, 1)
            For Each R In Array(8)
                With .Cells(1, R)
                    .FormulaR1C1 = Cells(3, .Column).FormulaR1C1
                    If R = 8 Then
                        .Font.ColorIndex = 7
                        .NumberFormatLocal = "0.00%"
                    End If
                End With
                Next
            End With
    Set Rng = Sheets("¾Ç²ß").Range("N" & Rows.Count).End(xlUp)(2, 1)
      With Rng.Cells(1, 1)
            For Each e In Array(1, 2, 3, 4, 5, 6, 8)
                With .Cells(1, e)
                    .FormulaR1C1 = Cells(4, .Column).FormulaR1C1
                    If e = 1 Then
                        .Font.ColorIndex = 1
                    ElseIf e = 3 Then
                        .Value = Date
                        .NumberFormat = "e/m/d"
                        .Font.ColorIndex = 5
                    ElseIf e = 8 Then
                        .Value = Date
                        .NumberFormatLocal = "#,##0_ ;[¬õ¦â]-#,##0 "
                    End If
                End With
            Next
        End With
    With Sheets("¾Ç²ß")
    Set Rng = Sheets("¾Ç²ß").Range("N" & Rows.Count).End(xlUp)(1, 1)
        ZZ = Application.InputBox("½Ð¿é¤J¼Æ¾Ú", "¼Æ¾Ú", Type:=1)
          If ZZ <= 0 Then Exit Sub
            With Rng.Cells(1, 7)
              .Value = ZZ
            End With
        End With
       .Columns("N:U").EntireColumn.AutoFit
    End With
End Sub

myleoyes

¦^´_ 14# GBKEE
¨}®v!ÁÂÁÂ!µ{¦¡¥i¥Hµn¤J¦ýµLªk¼g¤J(¤]´N¬O»¡¨S¦³¦Û°Ê)
        ¤p§Ì­×§ï¦p¤U¥u¬Oı±o´£¥Ü¹ï¸Ü®Ø¬O¥i¥H¬Ù²¤
         ¥H«K¥[³t³B²z¸ê®Æ¤£¬O¶Ü?¶È¨Ñ°Ñ¦Ò¯uªº¨¯­W§AÅo!
         «D±`ªº·P®¦ÁÂÁ¦A¤T!!

myleoyes

¦^´_ 16# GBKEE
¨}®v!¤p§Ì¤S§â§Aµ¹§Ë°g½k¤ï¶Õ°Õ!
    ¥»½d¨Òµ{¦¡¤À¬°2³¡¥÷
    1,µn¤J´N¬O±NBÄæ»PCÄæ¸ê®Æµn¤J¦bNÄæ©Ò«ü©wªº¦ì¸m
    2,¼g¤J´N¬O±NN3:U4½Æ»s¨ìBÄæ»PCÄæ¸ê®Æµn¤J¦bNÄæ©Ò«ü©wªº¦ì¸m
      µn¤J¥i³æ¿ï»P½Æ¿ï¨âºØ
      ­ìµ{¦¡µn¤J
    ag:
      ZZ = Application.InputBox("½Ð¦bBÄ椤¿ï¨ú¸ê®Æ", "¸ê®Æµn¤J", Type:=2)
      ¦]¬°Type:=2 ©Ò¥HIf ZZ = "" Then Selection = "": End  µ{¦¡±µ¨ü
                  If ZZ = False Then  Selection = "": End  µ{¦¡±µ¨ü
                  If ¿ï¨ú¨Ã«DBÄæ¸ê®Æ  Then MsgBox "¿ï¨úªº¸ê®Æ¨Ã«DBÄæ©Ò¦³¡I¡I½Ð­«·s¿ï¨ú": GoTo ag
      ¤]´N¬O»¡·í²Ä¤@¦¸«öµn¤J¶s¬O¥i¥H«á®¬ªº,©Ò¥H¿ï¾Ü¨ú®ø©ÎªÅ¥Õ¨Óµ²§ôµ{¦¡
      ­Y¿ï¨úBÄæ½T©w,µ{¦¡±NBÄæ»PCÄæ¸ê®Æµn¿ý¦bNÄæ©Ò«ü©wªº¦ì¸m
      µ{¦¡¦A¦¸©I¥s¤U­±ªº¹ï¸Ü®Ø
    ag1:
      ZZ = Application.InputBox("½Ð¦bBÄ椤¿ï¨ú¸ê®Æ", "¸ê®Æµn¤J", Type:=1)
      ¦]¬°Type:=1 ©Ò¥HIf ZZ = "" Then µ{¦¡¤£±µ¨ü
                  If ¿ï¨ú¨Ã«DBÄæ¸ê®Æ  Then MsgBox "¿ï¨úªº¸ê®Æ¨Ã«DBÄæ©Ò¦³¡I¡I½Ð­«·s¿ï¨ú": GoTo ag1
                  ¦pªG¿ï¾Ü¨ú®øIf ZZ = False Then ¼g¤J: End
                  ©I¥s¼g¤Jµ{¦¡´N§¹¦¨©Ò»Ýªº¥ô°È³o´N¬O³æ¿ïµn¤J
                  ­Y¿ï¨úBÄæ½T©w,µ{¦¡±NBÄæ»PCÄæ¸ê®Æµn¿ý¦bNÄæ©Ò«ü©wªº¦ì¸m
                  ¦]¬°GoTo ag1©Ò¥HType:=1ªº¹ï¸Ü®Ø¥i¥H­«½Æªº¥X²{¤@ª½¨ì
                  ¿ï¾Ü¨ú®øIf ZZ = False Then ¼g¤J: End
                  ©I¥s¼g¤Jµ{¦¡´N§¹¦¨©Ò»Ýªº¥ô°È³o´N¬O½Æ¿ïµn¤J
      µM¦Ó¹ï¸Ü®ØType:=1©ÎType:=2³£µLªk¹F¦¨"¿ï¾Ü¥²»Ý¬O ""B"" Äæ"¤§­n¨D
      ¨}®v¬°¤F¹F¦¨"¿ï¾Ü¥²»Ý¬O ""B"" Äæ"¤§­n¨D±Nµn¤Jµ{¦¡§ï¬°
      Set ZZ = Application.InputBox("½Ð¦bBÄ椤¿ï¨ú¸ê®Æ", "¸ê®Æµn¤J", Type:=8)
      ....
      On Error GoTo 0
      End Sub
      ¦]¬°Type:=8 ©Ò¥HIf ZZ = False Then  µ{¦¡¤£±µ¨ü
                  ­Y¿ï¨úBÄæ½T©w,µ{¦¡±NBÄæ»PCÄæ¸ê®Æµn¿ý¦bNÄæ©Ò«ü©wªº¦ì¸m
                  µ{¦¡¨ì¦¹¬°¤î,¨Ã¨S¦³©I¥s¼g¤Jµ{¦¡´NµLªk§¹¦¨©Ò»Ýªº¥ô°È
                  ©Ò¥H¥²¶·¦A«ö¼g¤J¶s¤~¯à§¹¦¨©Ò»Ýªº¥ô°È,³o¼Ë¤Ó³Â·Ð!!
                  µ{¦¡¥i¥Hµn¤J¦ýµLªk¼g¤J(¤]´N¬O»¡¨S¦³¦Û°Ê)³o¥y¸Üªº¥Ñ¨Ó
                  §Y«K¥[¤J¼g¤Jµ{¦¡¤]¬O³æ¿ïµn¤Jªº¥\¯à½}!!
      ©Ò¥H¤p§Ì¥[¤J If MsgBox("½Ð°Ý§A¬O§_Ä~Äò¿ï¨ú¸ê®Æ¡I¡I", vbYesNo) = vbYes Then
           µn¤J
      ElseIf vbNo Then ¼g¤J
      End If
      ¥H´£¥Ü¹ï¸Ü®Ø¸Ñ¨M½Æ¿ï»P¼g¤Jªº°ÝÃD
      °²¦p«öµn¤J10¦¸´N¥²»Ý¤]«ö´£¥Ü¹ï¸Ü®Ø10¦¸
      ©Ò¥Hı±o¥H¨}®vªº¥\¤OÀ³¸Ó¬O¥i¥H¬Ù²¤³o­Ó´£¥Ü¹ï¸Ü®Ø
      ´N¥i¥H§¹¦¨©Ò»Ýªº¥ô°È¤£¬O¶Ü?
      ³o´N¬O¤p§Ìªº·§©À...¤£µ½ªí¹F,ªø½g¤j½×¤£ª¾¨}®v!
      ¬O§_¤F¸Ñ..¯u¤£¦n·N«äÁÂÁ¦A¤T!!

myleoyes

¦^´_ 18# GBKEE
¨}®v!¤Ó·P°ÊÅo!¯uªº·P®¦...¤Ó¼F®`ÁÂÁ¦A¤T!!¨¯­WÅo!!