日记首页  | 列表 | 添加日记  | 管理登陆  | 搜索 | 退出 直达底部 
****************************************
2019/2/22《iPhone ID》
iPhone id
670259@qq.com
Su72***9
****************************************
2019/1/23《vba 求和 SUM》

     Cells(k, 10).Value = Application.WorksheetFunction.Sum(Range(Cells(k, 3), Cells(k, 8)))               '行汇总。10列的k行为统计k行3列到8列，求和。

     Cells(ii, j).Value = Application.WorksheetFunction.Sum(Range(Cells(2, j), Cells(iii, j)))                '列汇总。

Sub 合计()
  Application.ScreenUpdating = False
     Sheet1.Activate
     Dim x As Long
         x = Sheet1.Range("A65536").End(xlUp).Row + 1
     Cells(x, 13).Value = "=SUM(c1:h1000）"
     Cells(x, 12).Value = "总计："
         'MsgBox "合计完成！"
         Cells(x, 12).Font.Color = vbRed   '设置字体颜色
       Cells(x, 12).Font.Bold = True   '加粗字体
          Cells(x, 13).Font.Color = vbRed   '设置字体颜色
       Cells(x, 13).Font.Bold = True   '加粗字体

  Application.ScreenUpdating = True
End Sub

Sub 求和()
Application.ScreenUpdating = False
   
   k = Range("a65536").End(xlUp).Row()     '定位到A列最后一行，iii
     Cells(k, 10).Value = Application.WorksheetFunction.Sum(Range(Cells(k, 3), Cells(k, 8)))               '行汇总
              Cells(k, 10).Font.Color = vbRed   '设置字体颜色
  '     Cells(k, 10).Font.Bold = True   '加粗字体
Application.ScreenUpdating = True
End Sub
****************************************
2019/1/23《vba中的颜色》
1、vb中可以使用的颜色常数不多：
vbBlack，0x0，黑色
vbRed，0xFF，红色
vbGreen，0xFF00，绿色
vbYellow，0xFFFF，黄色
vbBlue，0xFF0000，蓝色
vbMagenta，0xFF00FF，紫红色
vbCyan，0xFFFF00，青色
vbWhite，0xFFFFFF，白色
2、另外，还有Windows里面设置的一些系统颜色，这个稍微多一点，但英语对我们就呵呵了
vbScrollBars，0x80000000，滚动条颜色
vbDesktop，0x80000001，桌面颜色
vbActiveTitleBar，0x80000002，活动窗口的标题栏颜色
vbInactiveTitleBar，0x80000003，非活动窗口的标题栏颜色
vbMenuBar，0x80000004，菜单背景色
vbWindowBackground，0x80000005，窗口背景色
vbWindowFrame，0x80000006，窗口框架颜色
vbMenuText，0x80000007，菜单文本颜色
vbWindowText，0x80000008，窗口文本颜色
vbTitleBarText，0x80000009，标题、调整框和滚动箭头的文本颜色
vbActiveBorder，0x8000000A，活动窗口边框颜色
vbInactiveBorder，0x8000000B，非活动窗口边框颜色
vbApplicationWorkspace，0x8000000C，多文档界面 (MDI) 应用程序的背景色
vbHighlight，0x8000000D，控件中选中项目的背景色
vbHighlightText，0x8000000E，控件中选中项目的文本颜色
vbButtonFace，0x8000000F，命令按钮表面阴影颜色
vbButtonShadow，0x80000010，命令按钮边缘阴影颜色
vbGrayText，0x80000011，灰色（无效）文本
vbButtonText，0x80000012，下压按钮文本颜色
vbInactiveCaptionText，0x80000013，非活动标题文本颜色
vb3DHighlight，0x80000014，3-D 显示元素的突出显示颜色
vb3DDKShadow，0x80000015，3-D 显示元素的最深阴影颜色
vb3DLight，0x80000016，vb3Dhighlight 之外最亮的 3-D 颜色
vbInfoText，0x80000017，工具提示文本颜色
vbInfoBackground，0x80000018，工具提示背景色
3、在html语言中可用的颜色常熟就要发放的多，下面给你几个例子
****************************************
2019/1/15《几何画板》
链接：https://pan.baidu.com/s/10bmrGc9NZBZLtEq-QPhlgw 提取码：do6L  几何画板5.06
****************************************
2019/1/15《几何画板》
链接：https://pan.baidu.com/s/10bmrGc9NZBZLtEq-QPhlgw 提取码：do6L  几何画板5.06
****************************************
2019/1/2《vba，查询，出错》

vba，查询，出错原因：

A列，不是最后一行

 x = Range("a65536").End(xlUp).Row

改为：

 x = Range("b65536").End(xlUp).Row

B列，(姓名)列
****************************************
2019/1/2《养老补助，4050》
司海清 89537741（太乙路街道办，4050）

社区办事人员18066733635
****************************************
2018/12/28《asp代码》

<p align="center">

align是对齐属性。它的值可以是left、center、right,分别表示靠左、中、右
****************************************
2018/12/23《asp，数据库，部分不显示》

asp，数据库，读取显示

      原句：
      <td align="center" nowrap="nowrap" bgcolor="#FFFFFF"><input type="text" name="address size="8" value="<%=rs("address")%>" /></td>

      如果这句全部删除，此列网页不显示

      不显示数据，但保留表格
      <td align="center" nowrap="nowrap" bgcolor="#FFFFFF"><input type="text" size="8" /></td>

      不显示数据，也不保留表格，但保留此列
      <td align="center" nowrap="nowrap" bgcolor="#FFFFFF"></td>

      不显示数据，此列变灰色
      <td></td>
****************************************
2018/12/22《vba跳转，vba跳过代码》

GoTo、On…GoTo语句

1．GoTo语句

无条件地跳转到程序的某个标记，此标记可以利用任何字符组合，以字母开头，以冒号结尾。

2．On…GoTo语句

如果希望根据表达式的结果而决定跳转到某个标记处，需要利用On…GoTo语句，语句法如下：

On expression GoSub destinationlist

On expression GoTo destinationlist

首选：

GoTo Skip

 ................     ' 不会被执行

Skip

GoTo LastLine
 ................     ' 不会被执行
    
LastLine:   ' 接GoTo LastLine 完成

示例：

Sub GotoStatementDemo()
Dim Number, MyString
    Number = 1     ' 设置变量初始值。
    ' 判断 Number 的值以决定要完成那一个程序区段（以“程序标签”来表式）。
    If Number = 1 Then GoTo Line1 Else GoTo Line2
   
Line1:
    MyString = "Number equals 1"
    GoTo LastLine    ' 完成最后一行。
Line2:
    ' 下列的语句根本不会被完成。
    MyString = "Number equals 2"
LastLine:   ' 接GoTo LastLine 完成
     Debug.Print MyString    ' 将“"Number equals 1"”显示在“立即”窗口。
End Sub
  共有日记399篇，每页10篇，分27/40页   9首页 3上页 下页4 尾页:  转到：