我正在尝试在Google Sheets中复制我能够在Excel中做的事情:选择多个列表值,并在同一个单元格中记录。
我使用了这个视频:
这段代码是:
Private Sub Worksheet_Change(ByVal Target As Range)
'Code by Sumit Bansal from www.trumpexcel.com
' To Select Multiple Items from a Drop Down List in Excel
Dim Oldvalue As String
Dim Newvalue As String
On Error GoTo
大家好!我想问一下,我有这个宏代码,用于将数据编码到excel中的另一个工作表中
Sub RoundedRectangle1_Click()
Dim i, lastrow As Long
If ActiveSheet.Range("d6") = "" Or ActiveSheet.Range("g6") = "" Or ActiveSheet.Range("c9") = "" Then
MsgBox "Please complete all fields!"
Exit
嗯,我让一个小程序改变了所有以='C:\开头的excel单元格,但我有一个问题,我使用range.replace来做这件事,但我的程序工作错误,因为它没有改变所有包含='C:\的单元格,只改变了第一个找到它的单元格,我不知道为什么。
我的代码是:
foreach (Excel.Worksheet sheet in xlWorkBook.Sheets)
{
string sheetName = sheet.Name;
Console.WriteLine(sheetName);
//seleccion rango activo
range = s
我正在使用Google Sheets API v4从我的google drive获取电子表格(excel)。完成本教程之后,我实现了我的第一个目标,即将所有数据作为检索到我的独立java应用程序中。它运行良好,我可以很好地保存到我的数据库中。现在我还需要获取单元格的颜色和单元格提示(如果存在)。但到目前为止,我一直在苦苦挣扎,但在网络上没有取得任何成功。我需要在没有javascript的情况下完成。下面是我的代码:我将所有的值放入名为values的数组中,但这里只检索单元格的值,也不检索背景颜色,单元格都没有提示。
Sheets service = getSheetsServi
我正在尝试设置一个Google Sheets电子表格,当编辑特定的单元格时,右侧单元格中的日期会更新,以指示已进行了更改。在Google Sheets论坛上,有人把我带到这里来寻求最好的指导。
脚本本身工作得很好。我需要在脚本中添加什么才能将其应用于特定的单元格/行?
下面是我现在的脚本:
function onEdit() {
var s = SpreadsheetApp.getActiveSheet();
var r = s.getActiveCell();
if( r.getColumn() != 3 ) { //checks the column
var row =
下面的代码为列表中的每个单元格(名为"Splitcode")创建一个主表副本,然后过滤数据中的第一列(名为"MasterData"),并删除不包含该单元格的所有行。并循环,直到为每个单元格创建了工作表。
该代码可以很好地处理column1和列表中的文本值。但它对数值(例如帐号)不起作用。
有人告诉我应该添加一个CStr()函数,但我以前从未使用过它,所以我不知道该在哪里确切地添加它。
Sub SplitandFilterSheet()
Dim Splitcode As Range
Sheets("Master").Selec
我有一个列表中的值在values.These名称范围内,我想写一个VB代码,以便创建工作表使用这些excel列表的值不断变化。
代码如下:
Sub AddSheets()
Dim cell As Excel.Range
Dim wsWithSheetNames As Excel.Worksheet
Dim wbToAddSheetsTo As Excel.Workbook
Dim i As Integer
i = 0
Set wsWithSheetNames = ActiveSheet
Set wbToAddSheetsTo = ActiveWorkbook
For Each cell In
基本上,我正在创建一个excel应用程序,当运行时,它将提示用户指向特定的excel文件,它将以字符串的形式接受中的位置,这很好用。我不确定该怎么做,就是在活动工作表中选择一个范围,取每个单元格中的值,并将它们组合成一个字符串。
这是我到目前为止的代码:
Option Explicit
Sub locate_file()
Dim file As String
Dim sheet1_95 As String
Dim theRange As Range
'prompt user for location of other excel sheet'
file = Applica
我有一个UDF,可以在excel工作簿中的单元格中调用。我需要它在工作簿的末尾添加一个工作表。我在VBA脚本中多次使用sheets.add,但从未在单元格内调用的函数中使用过,这显然导致了一些问题。
该函数接受一个可选参数,用于添加工作表的工作簿的文件路径,如果用户保留此空白,则默认为活动工作簿。
下面是相关代码..。我做错了什么?
Public Function onesheet(Optional filepath As String)
Dim wb As Workbook
Dim ws As Worksheet
If filepath = "" Then
Set
我正在使用表单的Sub:
If Not Intersect(Target, Sheets("Sheet1").Range("A1")) Is Nothing Then (+ code)
与以下各项结合:
Sheets("Sheet2").Range ("A1" & Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Value = Sheets("Sheet1").Range("A1").Value
目的是将数据从Sheet1上频繁变化的单元格(例如A
我正在尝试编写允许用户在Excel中输入(例如,更改日期)的VBA代码,然后再通过SQL检索数据。只要我将SQL查询存储在单个单元格中,代码就可以正常工作。但是,SQL查询包括62行,因此在单个单元格中编辑它并不是最佳选择。
我想在Excel中将SQL代码拆分为每行1行,以便更容易编辑。SQL代码当前存储在"SQL“表中的单元格"A1”中。
有什么想法可以让它在多行/单元格上工作吗?
Sub ConnectSqlServer()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sConnString As
我需要一个公式来查找二维范围内的值,并返回匹配单元格的坐标或单元格地址。例如:
R A B C
1 John Matt Pete
2 Sara Bret Chad
3 Lila Maya Cami
我想在范围A1:C3中搜索Chad,然后返回C2或2,3。如何使用Excel公式完成此操作?(我将最终将其应用于Google Sheets)。
谢谢!
我在Excel中有数据。我想要复制标题和一些数据从中间的工作表到Powerpoint。我知道你不能在Excel中复制一些不相邻的单元格,但我的印象是它会与VBA一起工作。
我的尝试:
With Workbooks(1).Sheets(1)
Set rng = Union(.Range("B2:K3"), .Range("B45:K85"))
End With
我可以选择"rng",但是我不能将它粘贴到任何地方,因为我得到了不能粘贴不相邻单元格的错误消息。
我也尝试过这样做,但是它导致了整个表(B2:K85)被复制:
With ThisWo
我希望将我的数据视图行导出到一个现有的excel模板中,该模板的标题将从单元格A10:a 10开始。
这是模板:
我试过了
Public Sub exportToexcel()
Dim default_location As String = "D:\Book1.xlsx"
Dim dset As New DataSet
dset.Tables.Add()
For i As Integer = 0 To dgvReports.ColumnCount - 1
dset.Tables(0).Columns.Add(d
我正在处理一个其他人写的宏,因为他们没有定义变量,但仍然在使用它,所以我感到很困惑。1)这是可能的吗? 2) excel/vba如何知道变量应该是什么?使用的变量是"theCell“,任何地方都没有定义。代码如下,谢谢:
Sub DoTheWork()
Sheets("All Data").Activate
ActiveSheet.Range("A2").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
Set homebook = ActiveWorkbook
Se
Private Sub Worksheet_Change(ByVal Target As Range) 'Excel VBA with more cells in the range.
Dim lr As Integer
lr = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).row
If Not Intersect(Target, Range("B2:AJ" & lr)) Is Nothing Then
Sheets(
如何修改此代码以满足以下要求:-将数据从一个excel簿复制到另一个excel簿,直到最后一个单元格?
代码如下:
Sub Copy_Over()
Application.ScreenUpdating = False
Dim i As Integer
Dim b As Integer
Dim LastRow As Long
Dim Lastrow2 As Long
Sheets("Sheet1").Activate
For i = 1 To 1
我有一个文本文件和一个启用宏的excel文件。excel文件(使用vba)每行从文本文件中获取字符串(阿拉伯文本),然后将其放在sheet1单元格上。问题是字符串没有正确显示。它以随机的日语字符显示。(我的窗口地点是日本)。
这是我的代码:
Open FilePath For Inputs As #1
Do Until EOF(1)
Line Input #1, textline
ActiveWorkbook.sheets(1).Cell(1,1).Value = textline
'MsgBox(textline)
Loop
Close#1
问题:如何使字符串(阿拉伯文本)
这个主要问题是选择正确的数据。我不能只从我的openbook中选择整列,因为当我试图粘贴到活动工作表的底部时,我得到了这种“粘贴区域不同”类型的错误。如果我可以选择过滤列表中第一行下面的任何单元格,它应该可以工作,但这一行每天都会改变。
` Sub GetData2()
Dim FileToOpen As Variant
Dim openbook As Workbook
ChDrive "C"
ChDir "C:\Users\alovell\Desktop\q400"
Application.ScreenUpdating = Fals