输入数字时间，表盘时针和分针自动指向相应位置，谢谢！

zyhui1961

输入数字时间，表盘时针和分针自动指向相应位置，谢谢！

zxsea_7426

坐等高手来，好学习，方向好弄，位置不会，不是上就是下，不是左就是右。估计要用到三角函数来计算了

杨建营

把漂亮的时钟放在自己的表上
https://club.excelhome.net/thread-509436-1-1.html
(出处: ExcelHome技术论坛)

smsn

一个小时360/12=30度，一分钟360/60=6度

smsn

shapes.AddLine (BeginX, BeginY, EndX, EndY)用座标画直线，三角函数算下角度。
估计应该有人做过，可以百度下。

39660519

1. Sub 删除表针()
   
2.     With Sheet1
   
3.         A = .Shapes.Count
   
4.         基图名称 = .Shapes(1).Name
   
5.         For Each 图形 In .Shapes
   
6.             If 图形.Name <> 基图名称 Then
   
7.                 图形.Delete
   
8.             End If
   
9.         Next 图形
   
10.     End With
    
11. End Sub
    
12. 
    
13. Sub 时钟变动()
    
14.     With Sheet1
    
15.         时针长度 = [D18]
    
16.         时针线宽 = [D19]
    
17.         分针长度 = [D20]
    
18.         分针线宽 = [D21]
    
19.         时间 = Sheet1.[E15]
    
20.         A = .Shapes.Count
    
21.         With .Shapes(1)
    
22.             基左坐标 = .Left  '左坐标
    
23.             基上坐标 = .Top  '上坐标
    
24.             基图形高 = .Height  '高
    
25.             基图形宽 = .Width  '宽
    
26.             中心左坐标 = 基左坐标 + 基图形宽 / 2
    
27.             中心上坐标 = 基上坐标 + 基图形高 / 2
    
28.         End With
    
29.         分针参数 = 获取分针参数(时间)
    
30.         时针参数 = 获取时针参数(时间)
    
31.         'Set 分针 = .Shapes.AddLine(起点左坐标, 起点上坐标, 终点左坐标, 终点上坐标)
    
32.         Set 时针 = .Shapes.AddLine(中心左坐标, 中心上坐标, 中心左坐标 + 时针参数(1), 中心上坐标 + 时针参数(2))
    
33.         With 时针.Line
    
34.             .ForeColor.RGB = 125
    
35.             .Weight = 时针线宽  '线宽
    
36.             .EndArrowheadStyle = msoArrowheadTriangle
    
37.         End With
    
38.         Set 分针 = .Shapes.AddLine(中心左坐标, 中心上坐标, 中心左坐标 + 分针参数(1), 中心上坐标 + 分针参数(2))
    
39.         With 分针.Line
    
40.             .ForeColor.RGB = 0
    
41.             .Weight = 分针线宽  '线宽
    
42.             .EndArrowheadStyle = msoArrowheadTriangle
    
43.         End With
    
44.     End With
    
45. End Sub
    
46. 
    
47. Public Function 获取时针参数(时间)
    
48.     Dim ARR(1 To 2)
    
49.     时针长度 = Sheet1.[D18]
    
50.     分钟 = Minute(时间)
    
51.     时钟 = Hour(时间)
    
52.     If 时钟 = 12 Then 时钟 = 0
    
53.     If 时钟 > 12 Then 时钟 = 时钟 - 12
    
54.     时钟 = 时钟 + 分钟 / 60
    
55.     角度 = 时钟 * 360 / 12
    
56.     If 角度 = 0 Then
    
57.         ARR(1) = 0
    
58.         ARR(2) = -时针长度
    
59.     End If
    
60.     If 角度 = 90 Then
    
61.         ARR(1) = 时针长度
    
62.         ARR(2) = 0
    
63.     End If
    
64.     If 角度 = 180 Then
    
65.         ARR(1) = 0
    
66.         ARR(2) = 时针长度
    
67.     End If
    
68.     If 角度 = 270 Then
    
69.         ARR(1) = -时针长度
    
70.         ARR(2) = 0
    
71.     End If
    
72.     If 角度 > 0 And 角度 < 90 Then
    
73.         角A = 角度
    
74.         角B = 180 - 90 - 角A
    
75.         角C = 90
    
76.         C = 时针长度
    
77.         B = C / Sin(角C * Application.Pi() / 180) * Sin(角B * Application.Pi() / 180)
    
78.         A = C / Sin(角C * Application.Pi() / 180) * Sin(角A * Application.Pi() / 180)
    
79.         ARR(1) = A
    
80.         ARR(2) = -B
    
81.     End If
    
82.     If 角度 > 90 And 角度 < 180 Then
    
83.         角A = 180 - 角度
    
84.         角B = 180 - 90 - 角A
    
85.         角C = 90
    
86.         C = 时针长度
    
87.         B = C / Sin(角C * Application.Pi() / 180) * Sin(角B * Application.Pi() / 180)
    
88.         A = C / Sin(角C * Application.Pi() / 180) * Sin(角A * Application.Pi() / 180)
    
89.         ARR(1) = A
    
90.         ARR(2) = B
    
91.     End If
    
92.     If 角度 > 180 And 角度 < 270 Then
    
93.         角A = 角度 - 180
    
94.         角B = 180 - 90 - 角A
    
95.         角C = 90
    
96.         C = 时针长度
    
97.         B = C / Sin(角C * Application.Pi() / 180) * Sin(角B * Application.Pi() / 180)
    
98.         A = C / Sin(角C * Application.Pi() / 180) * Sin(角A * Application.Pi() / 180)
    
99.         ARR(1) = -A
    
100.         ARR(2) = B
     
101.     End If
     
102.     If 角度 > 270 And 角度 < 360 Then
     
103.         角A = 90 - (角度 - 270)
     
104.         角B = 180 - 90 - 角A
     
105.         角C = 90
     
106.         C = 时针长度
     
107.         B = C / Sin(角C * Application.Pi() / 180) * Sin(角B * Application.Pi() / 180)
     
108.         A = C / Sin(角C * Application.Pi() / 180) * Sin(角A * Application.Pi() / 180)
     
109.         ARR(1) = -A
     
110.         ARR(2) = -B
     
111.     End If
     
112.     获取时针参数 = ARR
     
113. End Function
     
114. 
     
115. Public Function 获取分针参数(时间)
     
116.     Dim ARR(1 To 2)
     
117.     分针长度 = Sheet1.[D20]
     
118.     分钟 = Minute(时间)
     
119.     角度 = 分钟 * 360 / 60
     
120.     If 角度 = 0 Then
     
121.         ARR(1) = 0
     
122.         ARR(2) = -分针长度
     
123.     End If
     
124.     If 角度 = 90 Then
     
125.         ARR(1) = 分针长度
     
126.         ARR(2) = 0
     
127.     End If
     
128.     If 角度 = 180 Then
     
129.         ARR(1) = 0
     
130.         ARR(2) = 分针长度
     
131.     End If
     
132.     If 角度 = 270 Then
     
133.         ARR(1) = -分针长度
     
134.         ARR(2) = 0
     
135.     End If
     
136.     If 角度 > 0 And 角度 < 90 Then
     
137.         角A = 角度
     
138.         角B = 180 - 90 - 角A
     
139.         角C = 90
     
140.         C = 分针长度
     
141.         B = C / Sin(角C * Application.Pi() / 180) * Sin(角B * Application.Pi() / 180)
     
142.         A = C / Sin(角C * Application.Pi() / 180) * Sin(角A * Application.Pi() / 180)
     
143.         ARR(1) = A
     
144.         ARR(2) = -B
     
145.     End If
     
146.     If 角度 > 90 And 角度 < 180 Then
     
147.         角A = 180 - 角度
     
148.         角B = 180 - 90 - 角A
     
149.         角C = 90
     
150.         C = 分针长度
     
151.         B = C / Sin(角C * Application.Pi() / 180) * Sin(角B * Application.Pi() / 180)
     
152.         A = C / Sin(角C * Application.Pi() / 180) * Sin(角A * Application.Pi() / 180)
     
153.         ARR(1) = A
     
154.         ARR(2) = B
     
155.     End If
     
156.     If 角度 > 180 And 角度 < 270 Then
     
157.         角A = 角度 - 180
     
158.         角B = 180 - 90 - 角A
     
159.         角C = 90
     
160.         C = 分针长度
     
161.         B = C / Sin(角C * Application.Pi() / 180) * Sin(角B * Application.Pi() / 180)
     
162.         A = C / Sin(角C * Application.Pi() / 180) * Sin(角A * Application.Pi() / 180)
     
163.         ARR(1) = -A
     
164.         ARR(2) = B
     
165.     End If
     
166.     If 角度 > 270 And 角度 < 360 Then
     
167.         角A = 90 - (角度 - 270)
     
168.         角B = 180 - 90 - 角A
     
169.         角C = 90
     
170.         C = 分针长度
     
171.         B = C / Sin(角C * Application.Pi() / 180) * Sin(角B * Application.Pi() / 180)
     
172.         A = C / Sin(角C * Application.Pi() / 180) * Sin(角A * Application.Pi() / 180)
     
173.         ARR(1) = -A
     
174.         ARR(2) = -B
     
175.     End If
     
176.     获取分针参数 = ARR
     
177. End Function
     
178. 
     
179. 
     
180. 
     
181. Private Sub Worksheet_Change(ByVal Target As Range)
     
182.     单元格名称 = Target.Address(0, 0)
     
183.     If 单元格名称 = "E15" Then
     
184.         Call Sheet1.删除表针
     
185.         Call Sheet1.时钟变动
     
186.     End If
     
187. End Sub
     
188. 
     
189. 
     

复制代码

试试，代码比较繁琐，用的是画线的笨办法

zyhui1961

39660519 发表于 2022-12-4 17:24
试试，代码比较繁琐，用的是画线的笨办法

我的天，这也太厉害了！代码太麻烦了，谢谢！

大师再帮忙看一下，能不能更进一步，跪谢！！！

或者你能帮我改（增加）一个，后面的我来照你的样子改（增加），太感谢了！！！

39660519

zyhui1961 发表于 2022-12-5 12:12
我的天，这也太厉害了！代码太麻烦了，谢谢！

大师再帮忙看一下，能不能更进一步，跪谢！！！

试试，基础钟表图片要单独出来，不要组合，颜色可以自己添加和修改。

zyhui1961

39660519 发表于 2022-12-5 15:53
试试，基础钟表图片要单独出来，不要组合，颜色可以自己添加和修改。

我下载你的文件，不会操作：我在第二个工作表（1206）在相应单元格输入时间，图片就删除了。
我想这样:你帮我改两一个代码，比如在E14和H14单元格输入时间，上面对应的时钟就会显示正确的时间。
我自己再比照你更改的代码再改剩余的代码，谢谢！

39660519

zyhui1961 发表于 2022-12-12 13:36
我下载你的文件，不会操作：我在第二个工作表（1206）在相应单元格输入时间，图片就删除了。
我想这样: ...

Sub 生成基础字典()
    Set 对应字典 = CreateObject("ScrIptIng.DIctIonary")
    Set 基图名称字典 = CreateObject("ScrIptIng.DIctIonary")
    ARR1 = Array("图片 2", "图片 3", "图片 4", "图片 5", "图片 6", "图片 7", "图片 8", "图片 9", "图片 10", "图片 11", "图片 12", "图片 13")
    ARR2 = Array("E14", "H14", "K14", "E29", "H29", "K29", "E44", "H44", "K44", "E59", "H59", "K59")
    A = -1
    For Each B In ARR2
        A = A + 1
        对应字典(B) = ARR1(A)
        基图名称字典(ARR1(A)) = 1
    Next B
    Set 颜色字典 = CreateObject("ScrIptIng.DIctIonary")
    颜色字典("黑") = 0
    颜色字典("红") = 255
    颜色字典("绿") = 56320
    颜色字典("蓝") = 16711680
    颜色字典("黄") = 64507
    Set 针长宽字典 = CreateObject("ScrIptIng.DIctIonary")
    针长宽字典("时针长度") = 35
    针长宽字典("时针线宽") = 4.5
    针长宽字典("分针长度") = 50
    针长宽字典("分针线宽") = 3
End Sub

红色部分是基础图片的名称，绿色部分是对应时间的单元格，一一对应就行了。