自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(7)
  • 收藏
  • 关注

原创 只能看懂,让做就不会 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 127

原创 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 109

原创 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 268

原创 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 807

原创 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 41

原创 vba做几何的注意点

Option Explicit '在以下模kuai里,使用qiang制声明,登入注册---------------------------------------------------------------------------------------------------------------------------------Sub 做几何() Dim r1, s, v '強制声明dim:宏内将用到的bian量名称,bian量之jian用逗号隔kai,Dim中にない変量が違法変..

2022-03-14 15:10:35 295

原创 学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 2032

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除