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

ªí³æ·L½Õ­n¦p¦ó§@©O?

ªí³æ·L½Õ­n¦p¦ó§@©O?

¦hµ§¸ê®Æ¶×¤J¦Ü¥t¤@ªí³æ¡A¦b¥t¤@ªí³æ¤¤¥i¦Û¥Ñ¿ï¾Ü¥ô¤@µ§
¤£ª¾°ª¤â¯à§_«ü¾É¤@¤U©O??

testµn.rar (281.64 KB)

µ¹­Ó°Ñ¦Ò, ½Ð¦Û¦æ¥h®M:
testµn_v1.rar (253.12 KB)

TOP

¦^´_ 2# ­ã´£³¡ªL


    ÁÂÁ¤j¤jªº¦^ÂСA¤p§ÌÅv­­¤£°÷¡A¤£¯à¤U¸ü¡A¥i§_¤½§Gµ{¦¡½X

TOP

¦^´_ 3# sppk22


    Vb¤è¦¡ªí²{¦æ¼Æ·|«Ü¦h¦æ¶Ü¡H¤p§Ì¤£¤~¡Aªì¾ÇªÌ

TOP

¦^´_ 3# sppk22

¥t¤@¤U¸ü§}¡G
http://www.funp.net/938049

¯Â¤½¦¡¡A³o¥Îvba¤Ï¦Óê¤â¡ã¡ã¡ã

TOP

¦^´_ 5# ­ã´£³¡ªL


    =INDEX(Sheet1!$B:$L,MATCH(A27,Sheet1!$A:$A,),$AS$19)&""
ÁÂÁ¤j¤j­@¤ßªº¦^ÂÐ..¦b¦¹®¥¶P¤j¤j·s¦~§Ö¼Ö,¤µ¦~¤@¤ÁºØºØ¶¶¤ß¦p·N,¤ß·Q¨Æ¦¨..
¤p§Ì¹ï¤W­z¨ç¼Æ¦³ÂI¤£¤ÓÀ´..¥i§_¸ÑÄÀ¤@¤U¶Ü???

TOP

¥»©«³Ì«á¥Ñ sppk22 ©ó 2016-2-8 18:50 ½s¿è

¦^´_ 6# sppk22

­ì¿é¤J®æ¦¡¬°    ¹ï¶H            07000

±Ä¨ú¤§«á¬°    ¹ï¶H          7000       
­ìª÷ÃB100,000   ±Ä¼Ë«á¬°100000
®æ¦¡¦³ÂI¶]±¼...­n¦p¦ó³B¸m©O¡H¡H

TOP

¦^´_ 7# sppk22


=INDEX(Sheet1!$B:$L,MATCH(A23,Sheet1!$A:$A,),$AS$19)&""
§ï¦¨¡G
=INDEX(Sheet1!$B:$L,MATCH(A23,Sheet1!$A:$A,),$AS$19)

¹ï¹³¤½¦¡¬Û¦P¡I¡I¡I

³£¬O³Ì°ò¥»Â²³æªº¤½¦¡¡A¤£À´¤]¨Sªk»¡©ú¡A¥i¶i»¡©úÀÉ¥h¤F¸Ñ¡I¡I¡I

TOP

¦^´_ 8# ­ã´£³¡ªL

ÁÂÁ¤j¤j­@¤ßªº»¡©ú«ü¾É..¤p§Ì¤x©ú¥Õ
¦ýÁÙ¦³¥t¤@­Ó°ÝÃD..¸Õ°Ý
¤p§Ì¦bB3¡BB4...,²{ªp¸Õ§@¤G­ÓUSERFORM1¡BUSERFORM2­n¦p¦óÂI¿ï¨ìB~HÄæ¦ì³£¯àÅã¥ÜUSERFORM¬Û¹ïÀ³¤§ªí³æ¤ÎÄæ¦ì©O??

testµn_v2.rar (44.38 KB)

TOP

¦^´_ 9# sppk22
¸Õ¸Õ¬Ý
UserFormªºµ{¦¡½X
  1. Private Sub TextBox1_Change()
  2.     ActiveCell = TextBox1
  3. End Sub
½Æ»s¥N½X
sheets("sheet1")¼Ò²Õªºµ{¦¡½X
  1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
  2.     Select Case T.Row
  3.         Case 3
  4.             If UserForm2.Visible Then Unload UserForm2
  5.             With UserForm1
  6.                 .Label2 = Cells(2, T.Column)
  7.                 .TextBox1 = T.Value
  8.                 .Show (0)
  9.             End With
  10.         Case 4
  11.             If UserForm1.Visible Then Unload UserForm1
  12.                 UserForm2.TextBox1 = T.Value
  13.                 UserForm2.Show (0)
  14.         Case Else
  15.     End Select
  16. End Sub
  17. Private Sub Worksheet_Change(ByVal Target As Range)
  18.     Select Case Target.Row
  19.         Case 3
  20.             If UserForm2.Visible Then Unload UserForm2
  21.             With UserForm1
  22.                ' .Label2 = Cells(2, T.Column)
  23.                 .TextBox1 = Target.Value
  24.                 '.Show (0)
  25.             End With
  26.         Case 4
  27.             If UserForm1.Visible Then Unload UserForm1
  28.                 UserForm2.TextBox1 = Target.Value
  29.                 'UserForm2.Show (0)
  30.         Case 15 '¥Ó½ÐÃþ§O
  31.             If Target < 1 Or Target > 4 Then
  32.                 MsgBox "¥Ó½ÐÃþ§O ¶·¬° 1 - 4 ¤§¶¡ "
  33.             Else
  34.                 Check_Box ¥Ó½ÐÃþ§O, Target.Value
  35.             
  36.             End If
  37.         Case 16  '®Ö­ãºØÃþ
  38.             If Target < 1 Or Target > 5 Then
  39.                 MsgBox "®Ö­ãºØÃþ ¶·¬° 1 - 5 ¤§¶¡ "
  40.             Else
  41.                 Check_Box "®Ö­ãºØÃþ", Target.Value
  42.             
  43.             End If
  44.         Case 22  '·½.¤è¦¡...½Ð¦Û¦æ½m²ß
  45.         
  46.         
  47.     End Select
  48. End Sub
  49. Private Sub Check_Box(ByVal xTitle As String, ByVal No As Integer) '9999(A)ªí³æ¤¤¶µ¥Ø¤Ä¿ïªº¤lµ{¦¡
  50.     Dim Ar(), E As Object
  51.     With Sheet1 'SHEETS("999A")
  52.         Select Case xTitle
  53.             Case "¥Ó½ÐÃþ§O"   '«ü©wªº¶µ¥Ø¸m¤J°}¦C
  54.                 Ar = Array(.Shapes("Check Box 830"), .Shapes("Check Box 829"), .Shapes("Check Box 827"), .Shapes("Check Box 828"))
  55.                
  56.             Case "®Ö­ãºØÃþ"   '«ü©wªº¶µ¥Ø¸m¤J°}¦C
  57.                 Ar = Array(.Shapes("Check Box 10"), .Shapes("Check Box 12"), .Shapes("Check Box 14"), .Shapes("Check Box 39"), .Shapes("Check Box 13"))
  58.             
  59.             Case Else
  60.                 MsgBox "¥Ó½Ð ?? µ{¦¡½X¦³»~ "
  61.                 Exit Sub
  62.             
  63.         End Select
  64.     End With
  65.     For Each E In Ar                   '©Ò¦³«ü©wªº¶µ¥Ø
  66.         E.OLEFormat.Object.Value = 0   '¨ú®ø
  67.     Next
  68.     Ar(No - 1).OLEFormat.Object.Value = 1  '¤Ä¿ï
  69. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD