返回列表 上一主題 發帖

辨別程式

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-3-18 19:41 | 顯示全部帖子
回復 1# myleoyes

不是很明白你要的完整功能,試試看
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.   If Target.Address(0, 0) = "A9" And [B28] = "" Then
  3.      找最後一筆
  4.   End If
  5. End Sub
複製代碼
  1. Sub 找最後一筆()
  2.     ActiveWindow.ScrollColumn = 1
  3.     ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + [A9]
  4.     [B8] = [A8]: [B6] = 495: [A12:B12] = 0
  5.     Set a = [A8]
  6.     Set c = [C1:IV1].Find(a, , , 1)
  7.     If Not c Is Nothing Then c.Select
  8.     ActiveCell.Offset(0, 4).Font.ColorIndex = 10
  9.     ActiveCell.Offset(0, 4).Font.Size = 9
  10.     ActiveCell.Offset(0, 5).Font.ColorIndex = 30
  11.     ActiveCell.Offset(0, 5).Font.Size = 9
  12.     ActiveCell.Offset(0, 6).Font.ColorIndex = 46
  13.     ActiveCell.Offset(0, 6).Font.Size = 9
  14.     ActiveCell.Offset(0, 8).Font.ColorIndex = 5
  15.     ActiveCell.Offset(0, 8).Font.Size = 9
  16.     c.Offset(0, 8).Select
  17.     [B28] = ActiveCell
  18.     [B7] = 0: Calculate
  19. End Sub
複製代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-20 13:12 | 顯示全部帖子
回復 3# myleoyes

Sub yy()  可簡化如下
  1. Sub yy()
  2. For C = 6 To 26 Step 2
  3.   If Cells(9, C) <> "" Then Cells(10, C) = Cells(7, C) / Cells(3, C)
  4. Next C
  5. End Sub
複製代碼
Sub 格式化()  我就不懂了

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題