poxiao8的博客

Sub ConvFile(InputFile As String, OutputFile As String) '导出UTF-8格式文件 Dim WriteStream As Object Set WriteStream = CreateObject("ADODB.Stream") With WriteStream .Type = 2

Sub Skill() Dim i As Double, j As Double, skNum As Integer, AtkTime As Double, info() As Variant, psTime As Double skNum = InputBox("要模拟的技能数", "技能数量", "16") info = Range("B2:E" & skNum + 1

Option Explicit '当一个队伍只剩1个角色时，将不间断攻击 Public TeamMeb As Integer '一个队伍中队员数量 Type Team '定义角色属性，可拓展 Blood As Long '血量 Atk As Long '攻击 End Type Sub BattleSimulate() Dim teamA() As Team, tea

  Option Explicit Function CombineRange(WorkRng As Range, Optional Sign As String = ";") As String Dim rng As Range Dim outStr As String For Each rng In WorkRng If rng.Text <&...

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , "T...