加载中…
个人资料
追求工作室
追求工作室
  • 博客等级:
  • 博客积分:0
  • 博客访问:73,056
  • 关注人气:7
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
超强信号三线路由
图片播放器
好友
加载中…
评论
加载中…
留言
加载中…
博文

利用(For Each ……next)读出所有工作表名

Sub c()
Dim i As Integer, sht As Worksheet
i = 1
For Each sht In Worksheets
    Cells(i, 'A') = sht.Name
    i = i + 1
    Next sht
End Sub

阅读  ┆ 评论  ┆ 禁止转载 ┆ 收藏 
标签:

excel

操作

电脑

技能

分类: EXCEL

在EXCEL中利用VBA根据分数判断“及格、良好、优秀、不及格”。

方法一:(for……next)

Sub a()
Dim i As Integer
For i = 2 To 14 Step 1                                   '以14条记录为演示
   If Range('a' & i) >= 60 Then
      If Range('a' & i) >= 80 Then
       Range('b' & i).Value = '良好'
      Else: Range('b' & i).Value = '及格'
      End If
    Else
      Range('b' & i).Value = '不及格'
   End If
Next
End Sub

 

方法二(do while……loop):

Sub b()
Dim i As Integer
    i = 2   &n

阅读  ┆ 评论  ┆ 禁止转载 ┆ 收藏 
标签:

excel

操作

电脑

技能

分类: EXCEL
 excel 工作表拆分 在一个工作簿中我有很多个工作表 我想从第5个工作表开始每一个单独保存成工作簿 

方法一(从第5个工作表开始另存,当然可以修改哪个工作表开始)

   
 Sub 按钮1_单击()
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim i As Integer
Set wb = ActiveWorkbook
For i = 5 To wb.Sheets.Count
wb.Worksheets(i).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & '\' & wb.Worksheets(i).Name & '.xls'
ActiveWorkbook.Close
Next i
End Sub

 

 

方法二(从当前工作表开始另存)

 

Sub 另存所有工作表为工作簿()

Dim sht As Worksheet

Application.ScreenUpdating = False         '禁用屏幕刷新

ipath = ThisWorkbook.Path & '\'  &nbs

阅读  ┆ 评论  ┆ 禁止转载 ┆ 收藏 
标签:

excel

电脑

操作

技能

分类: EXCEL

转载:http://jingyan.baidu.com/article/d7130635071d2313fdf47585.html

注意:很多朋友反映sheets(i).delete这句代码出错,要注意下面第一个步骤,要拆分的数据工作表名称为“数据源”,而不是你新建工作簿时的sheet1这种。手动改成“数据源”即可。

阅读  ┆ 评论  ┆ 禁止转载 ┆ 收藏 
(2014-05-04 15:37)
2014.4.17丽水二中的金松老师给我们讲授了萝卜圈虚拟机器人操作。这是师校组织的县信息技术老师全员培训的内容之一!



阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

博客七周年

我的博客今天763天了,我领取了徽章.  

  • 2007.03.03,我在新浪博客安家。
  • 2007.03.04,我写下了第一篇博文:《面试的经典问题及回答思路?》。
  • 2011.11.03,我上传了第一张
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
分类: 电脑类

解决办法:
启动MSSQL SERVER 2008,选择菜单 工具-〉选项-〉左侧有个 设计器-〉表设计器和数据库设计器。然后去掉“ 阻止保存要求重新创建表的更改”前面的勾。重新启动MSSQL SERVER 2008即可



阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
分类: 电脑类

    从网上下了一个eWebEditor ASP版本,经试用其它功能都正常,但是点“普通粘贴”按钮或者直接使用Ctrl+V热键进行粘贴,总会跳出一个提示下载控件的对话框,如果不下载安装而关闭这个对话框,内容也无法粘贴进去。
    难道必须下载安装控件才能实现这个本来根本就不需要什么控件辅助就能做的事情吗?!EWEB这是搞的哪一出啊。。。。
    没办法了吗?No,往下看~~~
    简单浏览了一下所有的关键核心文件,发现这个事情应该跟
          /asp/i.asp
    里面输出的配置参数有一定关系,具体什么关系?没有功夫去研究它,一大堆混淆了的Javascript看的头晕,随便猜吧还是。。。。
    经过试验 i.asp 输出的下面这句就可以改变现有局面,
    默认是:
    config.AutoDetectPaste = '1';
    修改i.asp文件让它输出:(由1变0)
    config.AutoDetectPaste = '0';
    再试验,好了,功能正常了,也不提示下载eWebEditor编辑器的那个控件了,效

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 

在以SQL Server 2005数据库为后台的ASP网站访问速度慢,情况如下:一个服务器上的两个ASP网站,一个访问很快,一个很慢。

原因排查的思路与步骤:

首先在我电脑上依次打开这两个网站,一个两三秒就打开了,另一个需要10秒钟。看来问题情况属实;

 

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 

    日前,师校对我县信息技术组的老师在城东小学和庆元三中进行了培训。

    培训内容分为走进课堂,听取一线教师不同年龄段课堂的内容及表现!软件学习,分别学习了Photoshop、网页制作、Flash动画,提升了老师的专业知识技能,满足新教材新增软件的教学。市级专家曹建香老师讲座《备课需要关注什么》,从课程的特点、研究教材、研究学情等方面展开详尽的阐述,同时还对影响课堂的十八个细节进行了逐一的列举。

    每位上课老师课前准备充分,准备了大量的例子,结合例子进行教学,通俗易懂,容易上手。另外、还专门组织了专职任教信息技术的老师进行技能现场比赛。本次培训让所有老师在理论、实践方面都得到了很好的提高!

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
  

新浪BLOG意见反馈留言板 电话:4006900000 提示音后按1键(按当地市话标准计费) 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

新浪公司 版权所有