- ©«¤l
- 17
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 71
- ÂI¦W
- 1
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- google
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-6-27
- ³Ì«áµn¿ý
- 2024-5-17
|
¥H¼¶¼gµ{¦¡½X¦p¤U¡A²Ä¤@¦¸ÂI¿ï¥kÁä¥i¥HÁôÂóæ¤@¤u§@ªí¡A²Ä¤G¦¸ÂI¿ï¥kÁä«oÁôÂéҦ³¤u§@ªí¡A½Ð°Ý°ÝÃD¦bþ¸Ì?
µ{¦¡½X»Pªþ¥ó¦p¤U- Private Sub Worksheet_Activate()
- Dim i, n As Integer
- Dim a As String
- n = Sheets.Count
- For i = 1 To n
- If Sheets(i).Name <> Cells(i + 1, 2) Then
- a = Cells(i + 1, 2)
- If a = "" Then Exit Sub
- Sheets(i).Name = a
- End If
- Next
- End Sub
- Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- End Sub
- Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
- Dim i, n As Integer
- n = Sheets.Count
- For i = 2 To n
- If Target = Cells(i + 1, 4) Then
- If Cells(i + 1, 4).Interior.Color = vbBlue Then
- Cells(i + 1, 4) = "Åã¥Ü¤u§@ªí"
- Cells(i + 1, 4).Interior.Color = vbRed
- Worksheets(i).Visible = False
- Else
- Cells(i + 1, 4) = "ÁôÂäu§@ªí"
- Cells(i + 1, 4).Interior.Color = vbBlue
- Worksheets(i).Visible = True
- End If
- Else
- End If
- Next
- End Sub
½Æ»s¥N½X
1563740111775.zip (16.43 KB)
|
|