摘要:
For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" And chk.Value = 1 Then '选中了 chk.Value = 0 ElseIf chk.Caption = "1.7" And chk.Value <> 1 阅读全文
posted @ 2021-08-08 16:37
myrj
阅读(985)
评论(0)
推荐(0)
摘要:
For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.6" Then '选中了 chk.Value = 0 End If If 阅读全文
posted @ 2021-08-08 16:33
myrj
阅读(370)
评论(0)
推荐(0)
摘要:
a=String(3, "0") & "aaa" 则结果a的值为000aaa 阅读全文
posted @ 2021-08-08 16:28
myrj
阅读(383)
评论(0)
推荐(0)
摘要:
注意:这两个函数都修改了参数的值,如果想再次使用相应的值应该提前保留 如:a=10;b=DECtoBIN(a);则结果:b=1010,a=0 Public Function DECtoBIN(Dec As Double) As String DECtoBIN = "" Do While Dec > 阅读全文
posted @ 2021-08-08 12:38
myrj
阅读(821)
评论(0)
推荐(0)
摘要:
#include <stdio.h> #include <math.h> #define MAXCHAR 101 /*最大允许字符串长度*/ int char_to_num(char ch); /*返回字符对应的数字*/ char num_to_char(int num); /*返回数字对应的字符* 阅读全文
posted @ 2021-08-08 11:21
myrj
阅读(167)
评论(0)
推荐(0)

浙公网安备 33010602011771号