我想知道是否有人能为下面一种更流线型的方法提供一些启示呢?
基本上,当旋转按钮改变时,它会跳到标签上并更新哪些行是可见的,代码工作得很好,但是我想知道是否有一种不那么笨重的方式将它编码到表单中?
Private Sub Meds_Change()
meds_txt.Text = Meds.value
End Sub
Private Sub meds_txt_Change()
If meds_txt.value > 1 Then
If meds_txt.value = 2 Then GoTo ShowTwo
If meds_txt
为了学习的目的,快速提问。下面的代码运行良好,但我确信这是我的工作簿开始减速的几个原因之一。
基本上,在返回数字的定义范围单元格"propcount“上设置了一个公式。我想根据这个数字显示特定的表格,但是下面的代码是非常冗余的。有人能帮我修好吗?此外,请注意,页#s不一定是有序的。目前,它影响到第14页到第29页,但它跳过了第28页;在将来,它可能变得越来越没有组织性。
有什么想法吗?
Private Sub Worksheet_Calculate()
If Range("propcount") = "0" Then
Sheet14.Visib
我目前有太多的if语句;什么是关于文本框的编码、隐藏和取消隐藏的最佳解决方案,我想我有8个或更多的组合这里是我目前的代码,当我尝试这个时,它只适用于最后的if语句组合如下A-D,以及所有的组合之间:
If Combo308.Value = "A" Then
Combo305.Visible = True
Option103.Visible = True
Else
Combo305.Visible = False
Option103.Visible = False
End If
If Combo308.Value =
不确定是否有更简单的方法来做这件事,但是我在表单上有很多按钮。不同的功能可以看到不同的功能。
有没有一种方法可以让这样的东西更容易地改变他们的可见性,而不让每个按钮编码为False/True?
为了简单起见,我创建了一个快速应用程序来处理可见性,但当一组按钮可见时,我想隐藏其他按钮。因此,如果我选择第1行,它将使第2行和第3行的能见度为假。
我是被困在这个问题上了,还是有更简单的方法/更有效的方法?提前谢谢!
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As Even
我试图做一个程序,用户可以控制输入矩阵的尺寸,并根据所需的矩阵尺寸提供必要的文本框。用我目前的代码行,尽管函数很简单,它可能会达到一千行。有什么办法能更有效地写这个吗?每次点击"Load“时,这些盒子都会显示出来。
If (RowDisplay.Text = "1" And ColumnDisplay.Text = "1") Then
Ta11.Visible = True
Ta21.Visible = False
Ta31.Visible = False
T
我正在编写一段代码,根据时间在Access VBA中隐藏和取消隐藏。
从我的测试来看,它似乎跳过了If,转到了Else。
我要求Visible1出现在上午07:30至11:59下午11:59,而Visible2则在早上00:00至07:30:00出现。在任何给定的时间,Visible1或Visible2都应该出现。
Private Sub Form_Current()
Dim Visible1 As Boolean
Dim Visible2 As Boolean
Dim currentTime As String
Dim currentTimestring As String
curren
下面是我想运行的代码。我希望能够在一个页面上点击一个按钮,让另一个页面在透视表上运行这个按钮。我还将包括按钮的代码,这实际上是我造成问题的原因。
Private Sub CommandButton1_Click()
Call OHPivot_Store80
End Sub
Sub OHPivot_Store80()
'
' OHPivot_Store80 Macro
'
'
ActiveSheet.PivotTables("PivotTable1").PivotFields(
我有一个工作簿,希望一旦用户从下拉列表中选择了一个选项,就可以隐藏其他几个工作表。代码目前是-
Sub select_role()
Dim role As String
role = Sheet3.Cells(11, "F").Value
Select Case role
Case "Project Manager"
Sheet10.Visible = xlSheetHidden
Sheet11.Visible = xlSheetHidden
Sheet4.Visible = xlSheetHidden
Sheet6.Visible = xlSheetHi
我尝试显示两种类型的图像,一种称为类(柱面或球面),另一种是子类(拆分、多帧和端盖)。在我的电子表格中,用户有两个下拉列表,他们可以从不同的类和子类中进行选择。因此,我为每个类都有一个图像,子类有六个图像(每个类三个)。我使用嵌入的if语句首先检查类并显示相应的类图像,然后在该类的if语句中进一步检查子类并尝试相应地显示图像,但它不起作用。它只显示类图像,而不对子类图像执行任何操作。我在工作表事件处理程序中执行此操作。我绝对不是一个专家,我正在寻求那些在这方面比我了解得更多的人的帮助。谢谢 Private Sub Worksheet_Change(ByVal Target As range)
用户将首先输入成员数。如果用户输入一个成员,则只会出现一个文本框供用户输入。如果用户输入10个成员,则所有10个文本框都将出现。如果不是这样的话,它是可行的,但对我来说,这样做10次是很乏味的。我不知道怎么把它从If改成For循环
'Using If Else
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case txtNoMember.Value
Case
我得到了这个错误,所以我的更新按钮不能工作,而且由于这个错误,我没有更新我的数据库进度。
此javascript代码使用checkboxs和textboxs与json一起发送到cs端。
function UpdateDetails1() {
var bEnabled = GetCheckBoxVal($("#<%=CB_Enabled_Edit.ClientID%>"));
var bDisplayDetails = GetCheckBoxVal($("#<%=CB_DisplayD
我正在尝试一些我不知道是否有可能做的事情。
当我按下一个按钮时,许多标签的属性.visible必须改变,我使用以下方法:
Private Sub AlakranPositionsButton_Click(sender As Object, e As EventArgs) Handles AlakranPositionsButton.Click
If AlakranLabel.Visible = False Then
Label4.Visible = True
Label5.Visible = True
AlakranLabel.Visib
我想知道为什么在第一次执行时,在单击“是/否”框时生成的以下代码不能工作。单击它时,代码将被执行,但不承认复选框已被选中的事实,留下了复选框,但没有正确的结果。在取消选择它时,得到正确的结果,然后再选择它,代码将被正确地执行。
Private Sub cmdAccounting_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.cmdAccounting = 0 Then
Me![frmMasterListOfEventsDetailHistory].Form!cost.Vi
我使用的是表单皮肤,而不是移除所有东西,包括表单皮肤,我一直在尝试让表单在启动时改变图标本身。我有我的徽标的位图版本,当我尝试引用这些版本时,我得到错误:无法隐式地将类型'System.Drawing.Bitmap‘转换为'System.Drawing.Icon’ 我尝试向我的资源添加图标并尝试引用它,但是,只能引用我的位图。 public Main2()
{
InitializeComponent();
Main2 f1 = new Main2();
f1.Text = "Chaos V2.0.1c"
我对数组以及如何正确使用数组都很陌生。我不断地得到MyArray(i,1) = subscript out of range,它突出了行,我把星号放进去了。
我希望最小化行数并使其更有效,这样我就可以将相同的数组拉到不同的支点中进行过滤。
Sub Macro1()
Dim MyArray() As Variant
Dim i As Integer
'Populate the array.
MyArray = Array("I1", "I2", "I3")
'Filter based off
我有两个模块,我想要在工作簿打开时执行,这是最好的方法。下面是我的模块。
模块1
Public Sub workbook_open()
Dim YesOrNoAnswerToMessageBox As String
Dim QuestionToMessageBox As String
QuestionToMessageBox = "Do you Agree?"
YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "Do you agree with disclaime
我与几个有VB经验的人一起工作了整整一周,但我们不能让所有这些If / Then语句都正常工作。除了引用"otype“+ SCE+ CNE和"otype”=专线或仅互联网的声明之外,所有的工作都有效。逻辑看起来是正确的,但我们没有得到预期的结果。帮助!下面是我们有问题的VB代码。谢谢。
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Rem CNE Customer
If Range("otype") =
我目前正在做一个程序,我正在添加一个实用程序表单,我有按钮和面板。一个面板的一个按钮,所以我有代码,如果他们点击一个按钮,而另一个面板是可见的,以隐藏和显示另一个面板。由于某些原因,我必须按两次按钮才能更改为不同的面板,但不确定原因。
代码:
Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click
If pnlAbout.Visible = False Then
pnlAbout.Visible = True
我想同时关闭几个表单。当我运行它时,当我选择'case 1‘时,它仍然显示所有的表单。这一切的意义就是选择他想要看到的“多少条轨迹条”。默认情况下是10,这取决于他选择了多少。假设他选择了6。所以我把trackbar 7-10放在false上,和文本框和图片框一样。很抱歉我的英文不好,我希望大家都能理解我的问题,谢谢阅读!
namespace project
{
public partial class Form2 : Form
{
public Form2(int sliders)
{
InitializeComponent();
st
我正在尝试保护我的工作簿,我有多个工作表,我需要隐藏并只显示一个工作表,当我点击它时,它会有一个命令按钮(图1)我有一个弹出的用户表单(图2),其中包含用户名和密码来打开特定的工作表(我设置了不同的用户名和密码来打开特定的工作表) 我写了这段代码:
Private Sub CommandButton1_Click()
Dim User, Pass As String
User = Me.TextBox1.Text
Pass = Me.TextBox2.Text
If User = "Admin" And Pass = "123" Then