- 博客(7)
- 收藏
- 关注
RSS订阅原创 只能看懂，让做就不会 While
Sub changeUnit() Dim i, j i = 2 ' i は行の番号、第一列が空白に会った場合は停止する Do While Cells(i, 1) <> "" ' jは列の番号、一行ずつ、9列がある For j = 2 To 10 Cells(i, j) = Cells(i, j) * 0.453 Next j i = i + ...
2022-03-19 16:18:46
151
原创 While循環
Sub MarkRed() Dim i i = 2 While Cells(i, 2) <> "" If Cells(i, 3) < 60 Then Cells(i, 3).Font.Color = vbRed End If i = i + 1 WendEnd Sub--------------------------------------------...
2022-03-19 13:35:11
132
原创 VBA之录制宏
Sub 会員カード整理()Dim i For i = 10 To 3 Step -1 If Cells(i, 4) = "退会" Then Rows(i & ":" & i).Select Selection.Delete Shift:=xlUp ElseIf Cells(i, 5) < 0 Then ...
2022-03-19 10:40:58
336
原创 vba之计算成绩
Sub evaluate() Dim score score = (Cells(3, 3) + Cells(4, 3) + Cells(5, 3)) / 3 Cells(6, 3) = score If score >= 60 Then 'If＝もし、Then=なら Cells(6, 3) = "合格" ...
2022-03-17 20:10:33
926
原创 OKOKOKOK
Sub tuUSD() Dim rate, i rate = Cells(4, 4) For i = 7 To 16 Step 1 'iを7から16まで毎回毎回1を増加させる Cells(i, 4) = Cells(i, 4) / rate Next i '次のi Cells(3, 4) = "USD" Cells(6, 4) = "単位：USD"End Sub...
2022-03-14 16:40:48
75
原创 vba做几何的注意点
Option Explicit '在以下模kuai里，使用qiang制声明，登入注册---------------------------------------------------------------------------------------------------------------------------------Sub 做几何() Dim r1, s, v '強制声明dim：宏内将用到的bian量名称，bian量之jian用逗号隔kai，Dim中にない変量が違法変..
2022-03-14 15:10:35
322
原创 学vba之加减法
Sub 足し算（）Dim xx = Cells(3,2)Cells(x,9) = Cells(X,5) + Cells(x,7)End SubSub 引き算 ()Dim ii = Cells(3,2)Cells(i,9) = Cells(I,5) - Cells(i,7)End SubSub 做几何 ()Dim xDim yDim zx = Cells(4,3)y = (3.14 * x * x)z = 4/3 * 3.14 * x *
2022-03-14 11:05:50
2283
空空如也
thymeleaf中导入editor.md的Markdown不能显示图片
2023-04-12
TA创建的收藏夹 TA关注的收藏夹
TA关注的人