不懂VBA也编程

linyangqi · 发表于 2009-2-11 14:06

“山菊花”谢谢你！！

不懂不懂 · 发表于 2009-2-11 20:10

你好！看到一个表格但不知道他是怎吗用尖头调节图表里的线！
还有就是看他单元格里看不到公式！但调节肩头单元格里的数字就自己改动1
好想知道！请教能帮说下吗！他是不是用的是编程

鼠标右键点击绿色区域，选择“组合—取消组合”。可以看到多个对象被选择。
按Esc键取消对象的选择状态，或用鼠标点击任意一个单元格取消对象的选择。
中间并列排着五个微调按钮，它可以修改单元格的值。
用鼠标右键点击其中一个(如最左边的1#)，选择“设置控件格式”，在打开的对话框中，选择“控制”页，可看到“单元格链接”设置为“C12”，即点击该控件的箭头，C12单元格的值会被修改。
其它类同。

类似问题你应该在附件所在帖子中提问，请养成规范发帖的习惯，谢谢。——山菊花

clover4-4 · 发表于 2009-2-12 11:38

1、在Excel中玩转邮件合并 (2楼)

弱弱的提问（用的例子是2楼的xiabaoyuan_在线扳手、枪校验记录表单.zip ）：
1）微调按钮的格式，最小值为当前行号所在的行，意思是如果当前行号输入在J1，这个最小值就变成1了吗？那个最大值，如果弄成个很大的数值，超过了实际行数，打印时会不会打出只有框架没有实际数据的表来？
2）照你这个例子弄的，然后直接点“连续打印”这个命令按钮就可以打了吗？打出来会是一张纸有好几个这样的小单子还是一张纸一个小单子？如果是一张纸几个小单子，会不会出现有些单断开的情况？（即单子刚好横跨两张纸）

1、微调按钮设置最小值与最大值，表示使用按钮修改单元格的值时，受“最小值”与“最大值”的限制。这个操作与打印无关。打开的范围从J4到J5，如果J5超出了实际行数，它会打印出空表来，如果要作限制，可以修改代码：
Private Sub CommandButton1_Click()
For i = [j4] To [j5]
[j2] = i
If [b1] = 0 Then Exit For ’增加这一行，如果B1单元格为0，退出循环
Me.PrintOut
Next
End Sub

2、这个最好自己实际操作一下。

——山菊花

dahaocai · 发表于 2009-2-13 21:03

山菊老师:

如何用VB实现IF函数呢?

右键点击工作表标签，将下面的代码粘贴到光标处：
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column <> 5 Or Target.Row = 1 Then Exit Sub

If UCase(Target) = UCase(Target.Offset(, -2)) Then

Target.Offset(, -4) = "√"

Else

Target.Offset(, -4) = "×"

End If

End Sub
复制代码
——山菊花

dahaocai · 发表于 2009-2-13 23:21

山菊老师:
这就是我想要的,谢了！跟了这贴我受益匪浅呀！！不过在我的例子里有几个问题需要解决一下,
一:把答案单个删除后,判断变"X"了,不像IF那样,没答案就不显,选错了就显"X";
二:如果几个单元格一起删除的话,判断就没变化。
三：如果我想再加一个条件呢，如A17或A18公式那样；
四：如果我把C列剪切到SHEET2呢？

代码作如下修改，可满足一、二的要求，三、四两点没理解你的意思。
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range

For Each Rng In Target

      If Rng.Column = 5 And Rng.Row > 1 Then

         If Rng = "" Then

            Rng.Offset(, -4).ClearContents

         Else

            If UCase(Rng) = UCase(Rng.Offset(, -2)) Then

                  Rng.Offset(, -4) = "√"

            Else

                  Rng.Offset(, -4) = "×"

            End If

         End If

      End If

Next

End Sub
复制代码
——山菊花

ehcwl · 发表于 2009-2-15 11:50

真是好帖,认真学习...

ibook3524 · 发表于 2009-2-15 13:56

详见附件。

销售.rar (16.34 KB, 下载次数: 251)

将代码改为如下试试：
Private Sub CommandButton1_Click()

Dim Sh As Worksheet, c As Range

Dim nRows%, nRow&

If Range("b5") = "" Then Exit Sub

nRows = IIf(Range("b11") = "", Range("b12").End(xlUp).Row - 5, 6)

Set Sh = Sheets(Month(Range("h4")) & "月")

With Sh

Set c = .Range("a:a").Find(Range("h3").Value, LookIn:=xlValues, lookat:=1)

If c Is Nothing Then

nRow = .Range("a65536").End(xlUp).Row + 1

.Range("d" & nRow).Resize(6, 6).Value = Range("b6:h11").Value

.Range("a" & nRow).Resize(nRows, 1) = Range("h3").Value

.Range("b" & nRow).Resize(nRows, 1) = Range("h4").Value

.Range("c" & nRow).Resize(nRows, 1) = Range("c4").Value

End If

End With

Sheets("打印").PrintOut

Range("b6:h11").ClearContents

End Sub
复制代码
——山菊花

运行没问题　，但调试时F8至.Range("a" & nRow).Resize(nRows, 1) = Range("h3").Value仍然显示错误，山菊花老师，再帮我看看行吗？谢谢！！！

[ 本帖最后由 ibook3524 于 2009-2-15 19:38 编辑 ]

zjyhljx · 发表于 2009-2-15 14:05

真好！！

smlqr · 发表于 2009-2-16 00:22

山菊花老师，谢谢你，你的例子真是太好了！

zjyhljx · 发表于 2009-2-16 17:39

山菊老师不但技术好，而且人品更好。自从发现这个论坛后，我天天到此学习。
我是个菜鸟，请别见笑。
以下代码是您设置的用VBA设置当前工作表的背景色，如果工作簿中的每张工作表都有相同效果，应该怎么做？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Target.Range("a1")
Cells.Interior.ColorIndex = 0  '清除所有背景色
Rng.EntireColumn.Interior.ColorIndex = 40  '设置当前列颜色
Rng.EntireRow.Interior.ColorIndex = 36  '设置当前行颜色
End Sub

回复在5楼。
——山菊花

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

不懂VBA也编程

请教

求助：山菊花老师曾经的一个示例

请问山菊老师