Tag: excel 2003

仅将macros代码用于一个特定的列

我仍然是在Excel中编程的新手,我无法对代码进行细微的更改。我的代码使用户可以select一个单元格,然后使用向上和向下箭头来select一个定义的值。 看下面的代码,我在我的工作表中调用函数“UpOn​​e”和“DownOne”,然后我在模块中保存了我保存的string值。 工作表代码 Private Sub Worksheet_Open() Application.OnKey "{UP}", "UpOne" Application.OnKey "{DOWN}", "DownOne" End Sub 模块代码 Sub DownOne() Select Case ActiveCell.Value Case "" ActiveCell.Value = "PASS" Case "PASS" ActiveCell.Value = "FAIL" Case "FAIL" ActiveCell.Value = "Unknown" End Sub Sub UpOne() Select Case ActiveCell.Value Case "Unknown" ActiveCell.Value = "FAIL" Case "FAIL" ActiveCell.Value = "PASS" Case "PASS" ActiveCell.Value […]

需要在Excel 2003表单上打包文本

我在Excel 2003中使用在线教程创build了一个表单,但是我有一个不同的用例,现在遇到了一个小问题。 我知道VB很less,我的search没有产生任何帮助。 我有一个文本input字段,它不会包装文本,这将是首选的,所以用户可以看到他/她在提交前写给教授读或编辑。 我的猜测是这个代码块需要一些东西来指定文本应该包装在该文本框中。 预先感谢您提供的任何帮助。 Private Sub txtopportunity_Change() End Sub

Excel 2010中的图片集合的替代方法

这是来自xls文件的一些代码。 在Excel 2010中不起作用。 我无法在对象资源pipe理器中findPictures集合 Private Sub Worksheet_Calculate() Dim oPic As Picture 'make them invisible For Each oPic In Me.Pictures If Left(oPic.Name, 2) = "jq" Then oPic.Visible = False End If Next end sub 等值的2010代码是什么?

通过vba检测计算types

我有一个电子表格设置为手动计算节省时间(这需要很长的时间来计算)。 我想提供一些build议用户是否需要执行计算来获取整个工作簿的方法。 我还没有完全想到它,但在我的脑海中,我需要能够区分用户执行的计算。 即我需要一个worksheet_calculate事件能够识别,如果用户已经做了shift-f9或ctrl-shift-f9,并能够根据这个改变它的行为。 任何帮助将受到感谢。

Excel:需要复杂的SUMPRODUCT配方

我正在寻找一个SUMPRODUCT配方,或类似的配方,做同样的事情。 它应该做到以下几点: 在工作表A上,它需要忽略不正确的邮政编码,这意味着不包含4个数字和2个字母的邮政编码需要被忽略。 还需要考虑到邮政编码后面有时候会有多余的空格。 有时数字和字母之间有空格,有时候没有。 只需要比较4个数字和2个字母。 工作表A上的正确邮编需要与工作表B上的邮编进行比较。如果匹配,则需要总结邮政编码后面的所有值。 如果有另一条logging以相同的邮政编码开始,那么这些logging也需要相加。 由于数据经常产生,所以这两个工作表都不需要改变。 该公式应该能够在第三个单独的工作表上工作。 它应该在Excel 2003中工作。 编辑:添加点3。 我会添加一个图像来形象化我的意思。 希望有人能帮助我!

MS Excel 2003 – 处理形状时,在Excel VBA中简单的取消select问题

所以我有一个Excel工作簿,其中有一个全球的映射计划。 所以我对excel的每一个国家都有一个塑造。 根据区域select,相对于数据/查询,它将以各种方式遮蔽区域/国家。 所以我知道如何操纵颜色,渐变阴影等方面的每个形状…. 我不知道该怎么做是在子程序结束时“取消select”形状。 我的代码看起来像这样(真正简单) sheet1.shapes(“CountryName”)。select selection.shaperange.fill.solid selection.shaperange.fill.visible = true selection.shaperange.fill.forecolor.rgb = rgb(110,110,110)selection.shaperange.fill.onecolorgradiend msogradienthorizo​​ntal,2 ,0.45 好吧,从一个形状/国家/地区到另一个“取消select”并不是什么大事,因为重点跳跃,但在结束? 我猜/试了一堆东西,但唉,没有运气 谢谢!

Excelmacros – 可以解释这个吗?

我是新的Excelmacros。 任何人都可以告诉我这个macros是什么? Sub People_Add_Document() prow = ActiveCell.row num = Cells(prow, 1).Value wshet = ActiveSheet.Name If (Val(num) > 0) _ And (Cells(4, 1).Value = "#") _ And (wsheet = People_wsheet) _ Then people_select_link_to_Document process_wbook_path, prow End If End Sub Sub people_select_link_to_Document(process_wbook_path, prow) If Len(Cells(prow, DocumentFile).Value) = 0 Then Fname = Application.GetOpenFilename("Document Files (*.doc;*.pdf),*.doc;*.pdf", 1, "Select the […]

更改MS Excel 2003的背景

我是ac#编码器,到目前为止,这是我知道expression我想要的最好方式。 我正在考虑在Microsoft Excel 2003工作表上执行下面的代码。 这可能吗? 第一步 if(CellA1 == "Sunday" || CellA1== "Saturday"){ // code to set background color of // CellB1 to CellF1 to background color red } 第二步 // Execute this process from CellA1 until CellA10 for(CellA1 up to CellA10){ // do first step } 所以我想在MSExcel 2003上做的代码看起来像这样 for(int CellCount = 1;CellCount<10;CellCount++){ if("CellA"+CellCount.ToString() == "Sunday" […]

处理单元格值(vba)完成编辑的事件

嗨,在我的EXCEL工作簿中,我使用的是vba。 如何处理单元格焦点丢失事件或完成编辑值的事件。

如何在Java中使用Apache POI框架创buildRichTextString?

如何在Java SE中使用Apache POI框架为Microsoft Excel创buildRichTextString?