[游戏开发] VBA编程（一）

开发: C++知识库 Java知识库 JavaScript Python PHP知识库人工智能区块链大数据移动开发嵌入式开发工具数据结构与算法开发测试游戏开发网络协议系统运维
教程: HTML教程 CSS教程 JavaScript教程 Go语言教程 JQuery教程 VUE教程 VUE3教程 Bootstrap教程 SQL数据库教程 C语言教程 C++教程 Java教程 Python教程 Python3教程 C#教程
数码: 电脑笔记本显卡显示器固态硬盘硬盘耳机手机 iphone vivo oppo 小米华为单反装机图拉丁

-> 游戏开发 -> VBA编程（一） -> 正文阅读

[游戏开发]VBA编程（一）

学习VBA编程
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Sub Macro1()
? ? '
? ? ' Macro1 Macro
? ? '
? ? Dim VarValue1, VarValue2 As String
? ? Dim varMaxcolcount, varMaxrowcount, varIsMoveUp, varNowcol, varNowrow, i, Varcolor1, Varcolor2, varIsMoveLeft, VarIsUp As Integer
? ? Dim varFromCell, varToCell As Object
??

? ? varMaxrowcount = ActiveSheet.UsedRange.Rows.Count
? ? varMaxcolcount = ActiveSheet.UsedRange.Columns.Count

? ? 'VarIsUp=1则上下交换，否则左右交换
? ? VarIsUp = 1

? ? '只移动10次,次数可以修改，自己修改,改成1则只移动一次

? ? For i = 1 To 10
? ? ? ? varNowcol = Fix(Rnd() * varMaxcolcount) + 1
? ? ? ? varNowrow = Fix(Rnd() * varMaxrowcount) + 1

? ? ? ? Set varFromCell = ActiveSheet.Cells(varNowrow, varNowcol)

? ? ? ? '随机上下移动或者左右移动

? ? ? ? If Fix(Rnd() * 10) Mod 2 = 0 Then
? ? ? ? ? ? VarIsUp = 1
? ? ? ? Else
? ? ? ? ? ? VarIsUp = 0
? ? ? ? End If

? ? ? ? If VarIsUp = 1 Then

? ? ? ? ? ? Select Case varNowrow
? ? ? ? ? ? ? ? Case 1
? ? ? ? ? ? ? ? ? ? varIsMoveUp = 1
? ? ? ? ? ? ? ? Case varMaxrowcount
? ? ? ? ? ? ? ? ? ? varIsMoveUp = 0
? ? ? ? ? ? ? ? Case Else

? ? ? ? ? ? ? ? ? ? If Fix(Rnd() * 10) Mod 2 = 0 Then
? ? ? ? ? ? ? ? ? ? ? ? varIsMoveUp = 1
? ? ? ? ? ? ? ? ? ? Else
? ? ? ? ? ? ? ? ? ? ? ? varIsMoveUp = 0
? ? ? ? ? ? ? ? ? ? End If

? ? ? ? ? ? End Select

? ? ? ? ? ? If varIsMoveUp = 1 Then
? ? ? ? ? ? ? ? varNowrow = varNowrow + 1
? ? ? ? ? ? Else
? ? ? ? ? ? ? ? varNowrow = varNowrow - 1
? ? ? ? ? ? End If

? ? ? ? Else

? ? ? ? ? ? Select Case varNowcol
? ? ? ? ? ? ? ? Case 1
? ? ? ? ? ? ? ? ? ? varIsMoveLeft = 1
? ? ? ? ? ? ? ? Case varMaxcolcount
? ? ? ? ? ? ? ? ? ? varIsMoveLeft = 0
? ? ? ? ? ? ? ? Case Else

? ? ? ? ? ? ? ? ? ? If Fix(Rnd() * 10) Mod 2 = 0 Then
? ? ? ? ? ? ? ? ? ? ? ? varIsMoveLeft = 1
? ? ? ? ? ? ? ? ? ? Else
? ? ? ? ? ? ? ? ? ? ? ? varIsMoveLeft = 0
? ? ? ? ? ? ? ? ? ? End If

? ? ? ? ? ? End Select

? ? ? ? ? ? If varIsMoveLeft = 1 Then
? ? ? ? ? ? ? ? varNowcol = varNowcol + 1
? ? ? ? ? ? Else
? ? ? ? ? ? ? ? varNowcol = varNowcol - 1
? ? ? ? ? ? End If

? ? ? ? End If

? ? ? ? Set varToCell = ActiveSheet.Cells(varNowrow, varNowcol)
? ? ? ? 'waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
? ? ? ? 'Application.Wait waitTime
? ? ? ? '此处暂停0.1秒
? ? ? ? Sleep (1000)

? ? ? ? VarValue1 = varFromCell.Value
? ? ? ? VarValue2 = varToCell.Value
? ? ? ? Varcolor1 = varFromCell.Font.Color
? ? ? ? Varcolor2 = varToCell.Font.Color
? ? ? ? varToCell.Value = VarValue1
? ? ? ? varFromCell.Value = VarValue2
? ? ? ? varToCell.Font.Color = Varcolor1
? ? ? ? varFromCell.Font.Color = Varcolor2

? ? Next i

End Sub