请大神帮帮忙，解决一下这个问题！

lk2lklk · 发表于 2018-10-8 21:54

请大神帮帮忙，解决一下这个问题！

不知道为什么 · 发表于 2018-10-8 23:32

逻辑很清晰了，这又没什么难度。可以自己录制宏都能琢磨出来把

media888 · 发表于 2018-10-9 09:20

本帖最后由 media888 于 2018-10-9 09:23 编辑

控件.zip (40.97 KB, 下载次数: 2)
是不是这样的

Private Sub CommandButton1_Click()
Dim i, j
For i = 2 To 30
For j = 2 To 33
If TextBox1.Value = Cells(i, 1) Then

      If DTPicker1.Value = Cells(1, j) Then

Cells(i, j) = TextBox2.Value

   End If
   End If
      Next
      Next

MsgBox ("ok")
End Sub

Yalishanda30 · 发表于 2018-10-9 10:20

本帖最后由 Yalishanda30 于 2018-10-9 10:28 编辑

如附件，请测试，我的电脑没有日历控件，增加了一个自定义日历窗体，可以实现楼主的要求

microyip · 发表于 2018-10-9 10:48

楼主应该根据自己的思路写个代码出来，有什么问题再提出，这才是学习，否则就是伸手要

lk2lklk · 发表于 2018-10-9 15:31

谢谢各位老师的指导。尤其是media888老师和Yalishanda30老师。主要是我没有经过系统学习，这次就是卡在循环变量上了。只是有个大概的思路，具体程序写不出来。我思路跟media888老师的程序比较接近，Yalishanda30老师的更完善。再次感谢两位老师的帮助

lk2lklk · 发表于 2018-10-9 15:39

media888 发表于 2018-10-9 09:20
是不是这样的

Private Sub CommandButton1_Click()

非常感谢您的无私帮助。主要是我没有经过系统学习，这次就是卡在循环变量上了。只是有个大概的方向。现在我的问题就是各位老师的程序都能看明白，修改，但自己就写不出来，还得加强学习。再次感谢您的帮助。

lk2lklk · 发表于 2018-10-9 15:43

Yalishanda30 发表于 2018-10-9 10:20
如附件，请测试，我的电脑没有日历控件，增加了一个自定义日历窗体，可以实现楼主的要求

非常感谢您的无私帮助。您的程序更加完善。尤其是，增加了一个自定义日历窗体，厉害。非常感谢。

		自动登录	找回密码
密码			免费注册

[求助] 请大神帮帮忙，解决一下这个问题！