殷世鸣的个人资料 - RAT

殷世鸣殷世鸣

关注数: 0 粉丝数: 20 发帖数: 95 关注贴吧数: 14

紧急求救，昨天升级系统后没有问题，今天开机就变这样了，BIOS里面选择不了启动盘，怎么弄

win10更新卡在这啦，怎么弄

excel教学。代做工具表如果您每天需要处理大量数据或者表格，每天忙的的焦头烂额，那么您需要学习excel了，其实您每天大多数工作都是无用功，浪费时间生命。如有想学下面内容的请联系我，空闲时间都可以学。从此绝不加班!!!!!!!另外，不想学的也可以找我帮您做工具表，繁重的工作一键完成。保证满意。 n Excel介绍，基本功能讲解，及一些常用小技巧（1课时） Ø Excel简介，设置介绍 Ø 功能区各选项卡介绍 Ø 实用快捷键、小技巧介绍、 n 实用Excel函数详解及其他函数讲解（4课时） Ø 所有函数介绍 Ø 重要函数详解 Ø 公式实用中的相关问题 Ø 公式使用练习 n 名称使用及插入表格等功能详解（1课时） Ø “名称”重要性及其功能简介 Ø “名称”的使用方法 Ø “名称”的使用技巧及相关练习 n 条件格式使用详解（1-2课时） Ø 条件格式功能介绍 Ø 条件格式的使用方法 Ø 条件格式的使用技巧及相关练习 n 图表使用详解（1课时） Ø 各种图表介绍 Ø 图表设置常识 Ø 图表使用技巧及相关练习 n 数据处理功能详解（1课时） Ø 数据选项卡各功能介绍 Ø 分类汇总详解 Ø 其他功能详解 Ø 相关练习 n 数据透视表详解（2-3课时） Ø 数据透视表功能简介 Ø 建立数据透视表的方法 Ø 数据透视表各种设置 Ø 数据透视表使用技巧 Ø 相关练习 n VBA编程详解（10课时） Ø VBA功能演示、基本设置、界面介绍 Ø VBA基础知识 Ø 各种区域引用 Ø 简单函数、命令 Ø 判断 Ø 循环 Ø 自定义函数 Ø 简单过程编辑练习 Ø 用户窗体设计 Ø 插件设计 Ø 编辑功能区每课时为2小时。

求助大神数组生成的问题我公式编辑好后按ctrl+shift+enter不能生成数组，不出现大括号。用F9检查过公式，没有问题，键盘单独按各个键都没问题。后来发现按键盘的ctrl+shift+虚拟键盘上的enter是好使的，哪位大神遇见过这样的问题啊，求解答

看了大家的贴，才知道，一直不给我发推送，是微软对我的大爱啊看了大家的贴，才知道，一直不给我发推送，是微软对我的大爱啊

Redim数组时的问题为啥在redim preserve arr(1 to i,1 to 2)当i =2时会出现下标越界的错误。ubound(arr,1)等于1

无聊编了个排雷，后来发现根本没意义。和我一样无聊的人玩玩也行另外，哪位高手知道怎么让excel不显示右键菜单 Sub 排雷() Dim arr(), i As Byte, l As Byte, tato As Byte, lei As Byte, of As Byte Dim ro As Byte, col As Byte tato = 99 Cells(4, 34) = tato Range(Cells(2, 2), Cells(17, 31)).Interior.ColorIndex = 48 Range(Cells(2, 2), Cells(17, 31)).Font.ColorIndex = 48 ReDim arr(1 To 18, 1 To 32) line: of = 0 For i = 2 To 17 If of = 1 Then Exit For For l = 2 To 31 Randomize lei = Int(5 * Rnd + 1) If arr(i, l) <> 9 Then If lei = 1 Then arr(i, l) = 9 tato = tato - 1 End If End If If tato = 0 Then of = 1 Exit For End If Next Next If tato > 0 Then GoTo line For i = 2 To 17 For l = 2 To 31 If arr(i, l) <> 9 Then If arr(i - 1, l - 1) = 9 Then arr(i, l) = arr(i, l) + 1 If arr(i - 1, l) = 9 Then arr(i, l) = arr(i, l) + 1 If arr(i - 1, l + 1) = 9 Then arr(i, l) = arr(i, l) + 1 If arr(i, l - 1) = 9 Then arr(i, l) = arr(i, l) + 1 If arr(i, l + 1) = 9 Then arr(i, l) = arr(i, l) + 1 If arr(i + 1, l - 1) = 9 Then arr(i, l) = arr(i, l) + 1 If arr(i + 1, l) = 9 Then arr(i, l) = arr(i, l) + 1 If arr(i + 1, l + 1) Then arr(i, l) = arr(i, l) + 1 End If Next Next ActiveSheet.Range(Cells(1, 1), Cells(18, 32)) = arr Do Randomize ro = Int(17 * Rnd + 2) Randomize col = Int(31 * Rnd + 2) Loop Until arr(ro, col) = 0 Cells(ro, col).Interior.ColorIndex = xlNone End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim i As Byte, l As Byte, cou As Byte, ran As Range, cou1 If Target.Row <= 18 And Target.Column <= 32 And Target.Row >= 2 And Target.Column >= 2 Then If Cells(4, 34) = 0 Then cou1 = 0 For i = 2 To 17 For l = 2 To 31 If Cells(i, l) = 9 And Cells.Interior.ColorIndex = 3 Then cou1 = cou1 + 1 Next Next If cou1 = 99 Then MsgBox 恭喜 End If If Target.Interior.ColorIndex = 3 Then Exit Sub If Target = 9 Then line: MsgBox "游戏结束" For i = 2 To 17 For l = 2 To 31 If Cells(i, l).Interior.ColorIndex = 48 Then Cells(i, l).Font.ColorIndex = 0 End If If Cells(i, l) = 9 Then Cells(i, l) = "★" Next Next End If If Target < 9 And Target > 0 Then cou = 0 Target.Font.ColorIndex = 0 Target.Interior.ColorIndex = xlNone Set ran = Target.Offset(-1, -1).Resize(3, 3) For i = 1 To 9 If ran.Cells(i).Interior.ColorIndex = 3 Then cou = cou + 1 Next If cou = Target.Value Then For i = 1 To 9 If ran.Cells(i).Interior.ColorIndex <> 3 Then If ran.Cells(i) = 9 Then GoTo line Else ran.Cells(i).Font.ColorIndex = 0 ran.Cells(i).Interior.ColorIndex = xlNone End If End If Next End If End If If Target = 0 Then Target.Offset(-1, -1).Resize(3, 3).Font.ColorIndex = 0 Target.Offset(-1, -1).Resize(3, 3).Interior.ColorIndex = xlNone End If End If End Sub Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Row <= 18 And Target.Column <= 32 And Target.Row >= 2 And Target.Column >= 2 Then If Target.Interior.ColorIndex = 48 Then Selection.Font.ColorIndex = 3 With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With Cells(4, 34) = Cells(4, 34) - 1 ElseIf Target.Interior.ColorIndex = 3 Then With Selection.Interior .ColorIndex = 48 .Pattern = xlSolid End With Selection.Font.ColorIndex = 48 Cells(4, 34) = Cells(4, 34) + 1 End If End If End Sub

求大神帮忙看看问题在哪里啊我想做一个贪吃蛇的小程序，还没编完，遇见了一个问题。为啥只能拐一次弯，第二次excel就会关闭，求大神帮忙解答一下。 Dim arr1(), mybean As Range, on_off As Boolean, lever, direc As Byte, snakdirec As Byte Dim snakelever As Byte, snakelong As Integer, snakefirst As Range, snakelast As Range Sub 赋值() Dim i As Integer For i = snakelong - 1 To 1 Step -1 arr1(1, i + 1) = arr1(1, i) arr1(2, i + 1) = arr1(2, i) Next arr1(1, 1) = snakefirst.Row arr1(2, 1) = snakefirst.Column snakefirst = "█" snakelast = "" End Sub Sub 开始() Dim l As Byte, i As Byte ReDim arr1(1 To 2, 1 To 5) For l = 1 To 5 arr1(1, l) = 20 + l arr1(2, l) = 20 Next snakelong = UBound(arr1(), 2) snakdirec = 4 For i = 1 To snakelong Cells(arr1(1, i), arr1(2, i)) = "█" Next Call 等级 Call 前进 End Sub Sub 等级() lever = Int(snakelong / 10) End Sub Sub 时间() Dim i As Integer For i = 1 To 30000 - 1000 * lever DoEvents Next End Sub Sub 前进() Dim i As Integer on_off = True For i = 1 To 41 If on_off = False Then Exit Sub If snakdirec = 1 Then Set snakefirst = Cells(arr1(1, 1), arr1(2, 1) + 1) ElseIf snakdirec = 2 Then Set snakefirst = Cells(arr1(1, 1), arr1(2, 1) - 1) ElseIf snakdirec = 3 Then Set snakefirst = Cells(arr1(1, 1) + 1, arr1(2, 1)) ElseIf snakdirec = 4 Then Set snakefirst = Cells(arr1(1, 1) - 1, arr1(2, 1)) End If Set snakelast = Cells(arr1(1, snakelong), arr1(2, snakelong)) Call 等级 Call 赋值 Call 时间 Next End Sub Sub 上() If snakdirec = 2 Or snakdirec = 1 Then on_off = False snakdirec = 4 Call 前进 End If End Sub Sub 下() If snakdirec = 2 Or snakdirec = 1 Then snakdirec = 3 on_off = False Call 前进 End If End Sub Sub 左() If snakdirec = 3 Or snakdirec = 4 Then snakdirec = 2 on_off = False Call 前进 End If End Sub Sub 右() If snakdirec = 3 Or snakdirec = 4 Then snakdirec = 1 on_off = False Call 前进 End If End Sub Sub 停() Dim i As Byte on_off = False For i = 1 To 10 DoEvents Next Call 前进 End Sub

求助啊，win10应用都不能用了怎么才能恢复啊

新人求教比如说现在活动工作表为1，不能直接把工作表2的数据赋值给数组吗？ arr1 = Worksheets(2).Range([A1], [I1]) 这段代码执行不了啊只能在它前面加 worksheet(2).select吗？

初学者关于数组赋值的一点问题为什么这段代码可以执行 Sub 实验() Dim arr1 Worksheets(2).Select arr1 = Worksheets(2).Range([A1], [I1]) Worksheets(1).Select Worksheets(1).Range([A1], [I1]) = arr1 End Sub 这样不行呢 Sub 实验() Dim arr1 arr1 = Worksheets(2).Range([A1], [I1] Worksheets(1).Range([A1], [I1]) = arr1 End Sub

10.02【求助】G58可以加固态硬盘吗？ G58可以加固态硬盘吗？是不是要拆掉光驱？另外，win10能迁到固态硬盘上吗？

04.20【分享】g58入手 g58入手几天了，感觉还可以。没装固态，开机15秒左右，玩大型游戏散热一般

1 下一页