日记首页  | 列表 | 添加日记  | 管理登陆  | 搜索 | 退出 直达底部 
****************************************
2018/10/25《Excel精英论坛，网址》

Excel精英论坛，网址：

http://www.excelpx.com/thread-190994-1-1.html


lk2lklk

A42****9hjt
****************************************
2018/10/24《vba》
Excel表格，vba，课程记录输入，必须有查错机制
****************************************
2018/10/24《countif函数，统计有数据的单元格》
countif函数的含义
在指定区域中按指定条件对单元格进行计数（单条件计数）
countif函数的语法格式
=countif（range，criteria）
参数range 表示条件区域——对单元格进行计数的区域。
参数criteria 表示条件——条件的形式可以是数字、表达式或文本，甚至可以使用通配符。
Countif（条件区域，条件）


在一对一excel表格，课时里：
1.统计E到AI有数据的单元格
=COUNTIF(E31:AI31,"><""")

2.统计E到AI有数据的单元格，把“请假”的单元格不统计
=COUNTA(E6:AI6)-SUM(COUNTIF(E6:AI6,{"*请假*"}))
****************************************
2018/10/24《vba日期控件，MSCOMCT2.OCX》
如果你是win7 64位的操作系统，你要把MSCOMCT2.OCX 先复制到路径C:\Windows\SysWow64下，
2.然后在开始菜单-搜索 处输入：cmd
3.右键选择以管理员身份运行cmd.exe程序，
4.在弹出的dos窗口中输入：regsvr32 C:\Windows\SysWow64\MSCOMCT2.OCX
5.然后回车即可。


win7中管理员身份运行cmd.exe程序:
Windows PowerShell（管理员）(A)


MSCOMCT2.OCX放在阿里云D盘资料储存中
****************************************
2018/10/24《一对一输入，要解决的问题》
一对一输入，要解决的问题：
1.vba，如何能，遇空白单元格停止或报错。
2.建立下拉菜单或勾选，替代输入
****************************************
2018/10/24《vba中，定义字符串》

vba中，定义字符串，用双引号

 str1 = "ABCD" str2="abcd"
****************************************
2018/10/24《VBA中，窗体控件中添加日期控件并赋值》

网址：


VBA中，窗体控件中添加日期控件并赋值，如图。谢谢大家！！
****************************************
2018/10/24《vba窗体下拉菜单的实现方法》
Excel窗体下拉菜单的实现一列方法
网址：
http://blog.163.com/ycy_sdfc/blog/static/
****************************************
2018/10/23《vba中的变量表示》
L=k+i
是否可以这么写：
k=k+i
****************************************
2018/10/23《vba中，输入到指定位置，X,Y定位问题，解决了》

vba中，输入到指定位置，X,Y定位问题，解决了，方案1：

Private Sub CommandButton1_Click()

Dim i, j, k

   For i = 2 To 30
   For k = 2 To 30
   For j = 2 To 33
If TextBox1.Value = Cells(i, 1) Then

If TextBox3.Value = Cells(k, 2) Then
  If i = k Then
      If DTPicker1.Value = Cells(1, j) Then
        

   Cells(k, j) = TextBox2.Value
     End
     End If
       End If
           End If
       End If
        Next
        Next
         Next
       
MsgBox ("ok")
End Sub

方案2：

还可以考虑吧i赋值给k，即从i开始来定义k

Private Sub CommandButton1_Click()

Dim i, j, k, l

   For i = 2 To 30
   For k = 0 To 30
  
    For j = 2 To 33
   
If TextBox1.Value = Cells(i, 1) Then
l = k + i

If TextBox3.Value = Cells(l, 2) Then
  If i = k Then
   
      If DTPicker1.Value = Cells(1, j) Then
        

   Cells(l, j) = TextBox2.Value
     End
     End If
       End If
           End If
       End If
        Next
        Next
         Next
       
MsgBox ("ok")
End Sub
  共有日记407篇，每页10篇，分34/41页   9首页 3上页 下页4 尾页:  转到：