我最近已转换为通过MS Excel使用LibreCalc。 我想在LibreCalc中使用许多Excel宏,其中一些使用Application.InputBox函数。 我已在LibreCalc中启用了VBA支持,但不幸的是该功能无法识别。 这是代码示例-

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Project_Data_Sort_By_Date()

Dim x As Long
Dim StartCont As Double
Dim EndCont As Double
Set R = Selection 'Select data range'
RowCnt = R.Rows.Count
colcnt = R.Columns.Count
Set TheTimes = Application.InputBox("Please enter time range: ", "User input", Type:=8) 'Times is corrected full data range of sample period'

在MSExcel中,类型为8的Application.InputBox函数将导致出现一个输入框,并允许用户在输入框中输入一系列单元格。 使用常规的Basic InputBox函数,不能输入单元格范围。

因此,LibreCalc中是否有一个等效的函数,或者您可以通过其他方式手动选择一个单元格范围并将其分配给自变量,然后可以在宏中稍后调用它?

===============>>#1 票数:0 已采纳

您可以在CALC中使用相同的运行时函数:

range = Inputbox("Please enter time range:", "User input")
Times = ThisComponent.Sheets().getByIndex(0).getCellRangeByName(range)

您也可以将range作为字符串传递给该函数:

Times = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("B2:C10")

  ask by R Ramsay translate from so

未解决问题?本站智能推荐:

2回复

Libre Office Calc与Excel

我的公司将从Excel更改为Libre Office Calc。 我建立了Excel VBA宏的集合(尤其是屏幕抓取宏)。 我的宏程序可以正常工作吗? 其他任何进行过更改的人,您如何顺利进行更改?
2回复

python中的宏可以与ms excel一起使用吗?

如果我要在python中为libreoffice calc编写宏并将该文件另存为xlsx文件,则该宏是否可以在Windows pc上的ms excel中工作? 我正在考虑学习python,因此我可以在libreoffice上的python中为ms excel编写宏。
2回复

使用VBA将Excel中的一系列数据导出到ASCII纯文本格式的表CSV或txt文件

我只需要将一系列数据从Excel或LibreOffice Calc文件导出到ascii纯文本表-文本文件。 输出应采用以下格式: 是否可以使用vba? 是的,数字应右对齐。 或者像这样:
1回复

如何将单元格而不是单元格的值传递给LibreOffice函数?

我希望用户能够选择单元格,然后让我的功能在那些单元格上运行。 我怎么做? “ ByRef”和“作为对象”似乎做对了,但是Excel / {Libre,Open} Office拒绝了函数调用,因为用户的输入不是对象。 有没有办法找出要运行该功能的单元格? 即使我不得不执行类似查
1回复

VBA将数据获取到不同格式Excel的新工作表中

我还是VBA EXCEL编程的新手。 我需要以另一种格式将数据从一张纸提取到另一张纸。 但是,许多教程似乎只是将数据行逐行或范围内提取到一个新的工作表。 这是我的DataSheet1: 我想使数据成为另一个数据表中的自定义格式。 所以这是我想要的结果: 以下是我从
2回复

Excel VBA合并行而不会丢失

我需要循环浏览Excel工作表上的行,然后将它们合并。 基本上,我一次比较第1行,如果它们满足参数,则我将它们合并(合并?)。 我想让它在哪里,如果数据匹配,我们什么也不做;如果为空,我们填补空白;如果数据不同,则用逗号分隔符将其连接起来。 以下是我正在努力的代码部分。 这是我第一次
2回复

Excel VB搜索脚本

我正在尝试在Visual Basic中编写一个脚本,该脚本可以做到这一点:我有2个Excel工作表,并且我想从#2 Excel工作表中的#1 Excel工作表中逐行搜索所有行,如果相似,我要替换该行中的特定列(在#2 Excel工作表中)。 问题是,我不知道如何在VB中的Excel文档中进
2回复

VBA:函数给出“运行时错误'424':所需对象”调用时错误

我有两个主要功能,第一个是search_bank。 它按单元格搜索``贷方'',``类型''和``存储''列,并找出是否存在匹配项;如果存在匹配项,则返回True,并且副作用会更改匹配单元格的颜色。 我正在用来测试第一个功能的第二个子 。 我遇到的问题是,我收到运行时错误“ 424”:
1回复

Excel:如何编程以使Excel读取单元格内容,然后切换打开新工作表?

我对编程很陌生(1天的经验),我试图构建一个交互式数据库,但是在进行某些工作时仍然遇到问题。 我希望Excel读取在某个单元格中选择的值,并基于该单元格中的值,然后将其打开到单独的工作表中,在这里我可以开始另一组数据输入。 我尝试了许多不同的选项,但到目前为止,我的代码如下所示:
1回复

Excel VBA数组未从循环填充

这是代码。 我正在尝试做的是创建一个包含所有空格(该字符串看起来像“ text text text ...”的字符串)的索引位置的数组(名为“ difficultstring”): 但是由于某种原因,当我稍后尝试使用cutarray数组执行某项操作或显示来自cutarray的值时,似乎