小编ash*_*awg的帖子

我拆分了当前的数据库,因为它将由多个组使用.拆分时,它带来了我的主表,但没有表格.我试图重新创建一个表单并将表单(从原始数据库)拖放到新的(拆分)数据库,但它不允许它.

是否将数据库拆分为我正在寻找的错误路径？

我正在开始一个大型项目，它需要 VBA 功能来使用 Access 和 Excel进行多种形式的图像处理。

第一个是简单的旋转的JPEG图像。现有答案涉及解决方法或第三方插件。

如何以编程方式裁剪、重新缩放、翻转或旋转图像？

解决方法和第 3 方插件不足以满足此项目的需求。

01/02/2018 12:25:00 PM

我在Excel电子表格的B1单元格中有上述日期.日期是2018年2月1日,但下面是VBA代码

thedate = CDate(Application.Cells(linecount, 2))

将此转换为2018年1月2日

我用什么VBA代码保留2018年2月01日？

我在Excel中有这样的数据:

Person1    A    A    B    A         C    3
Person2                                  0
Person3    A    B    C    D    E    F    6
Person4              A    A    A         1

我试图找到一个公式,复制每行的最后一个单元格中的数字,与该人相关的唯一元素的数量,不包括空格.所以例如Person1有3个,因为有A,B和C,即使有三个A. 列数固定/每个人都相同.值A,B,C等是字符串(与数字相对).

可以使用公式来完成吗？

我在列A和B中分别具有值1,2,3和2,3,4。我希望列C为1 + 2、2 + 3、3 + 4。我已将A列的前3个单元格命名为RANGE_A，B列的前3个单元格命名为RANGE_B

我已经尝试过sum（RANGE_A，RANGE_B），但是在输出范围的每个单元格中，我的实际总数为15。

我不想在VBA中执行此操作，并且如果我可以像我尝试的那样使用范围，那会更干净，但是如果其他所有方法均失败，我将仅使用A1 + B1，A2 + B2等。

*****编辑**************************************
要对两个命名范围求和= {sum（ RANGE_A，RANGE_B）}产生一个标量值，该值反映在输出数组的每个单元中，等于两列的总和。

实际上，我的解决方案非常简单（感谢QHarr，即使我原来的问题写错了，他也能做到这一点！）

= {RANGE_A + RANGE_B}产生一个输出数组，其中每个值是每个范围中每对单元格的和。这就是我想要的！

干杯
Ĵ

我需要在 Excel 中的每个单元格中编辑一个公式。但我很难使用 VBA 代码转义单引号和双引号。

这是一个例子：

=+'F-222Alloc'!N2516+'F-222Alloc'!N2526

我需要它看起来像这样

=+INDIRECT("'"&N14&"'!N2511")+INDIRECT("'"&N14&"'!N2526")

如何正确使用REPLACE功能？

我正在尝试从Excel工作表中的范围添加选项按钮.

For Each Value In OptionList

    Set opt = UserForm3.Controls.Add("Forms.OptionButton.1", "radioBtn" & i, True)
    opt.Caption = Value
    opt.Top = opt.Height * i
    opt.GroupName = "Options"

    UserForm3.Width = opt.Width
    UserForm3.Height = opt.Height * (i + 2)

    i = i + 1

Next

我想创建一个事件处理程序,以便radiobtn1在从用户运行代码时选择if .虽然我得到了很多答案,但这些是用于工作表用户表单的.

我的目的是处理VBA用户表单.请帮我解决一下你的想法.

嗨,所以我完成了一个程序部分,计算和导出带有结果的csv.(最终约1600个csv文件),每个文件只有1列,在20到0行之间.我希望我的MS Access VBA程序将它们连接成一个更大的CSV.所以相同的标题只在新文件的顶部一次.

我到目前为止的程序似乎在它试图导入Reg的部分失败了.文件号.

Dim db As DAO.Database
Set db = CurrentDb
MTH = Format(Date, "mmm")
UserInput = InputBox("Enter Country Code")
Dim strSourcePath As String
Dim strDestPath As String
Dim strFile As String
Dim strData As String
Dim x As Variant
Dim Cnt As Long
Dim r As Long
Dim c As Long
Dim wks As Excel.Worksheet

    Application.Echo False

    'Change the path to the source folder accordingly
    strSourcePath = "Q:\CCNMACS\AWD" & CTRY

    If Right(strSourcePath, 1) <> "\" Then strSourcePath = …

我添加了一个函数来获取Active Directory用户登录，对于使用 VBA 的 Access DB，但我不确定为什么我看不到表达式生成器中列出的函数

我像这个问题一样定义了函数，但我在表达式生成器中看不到该函数。我计划使用这个函数在我的表单上填充一个不可见的txtBox并将其记录到数据库中。

    Public Function GetUser(Optional whatpart = "username")
        Dim returnthis As String
        If whatpart = "username" Then GetUser = Environ("USERNAME"): Exit Function
        Set objSysInfo = CreateObject("ADSystemInfo")
        Set objUser = GetObject("LDAP://" & objSysInfo.USERNAME)
        Select Case whatpart
            Case "fullname": returnthis = objUser.FullName
            Case "firstname", "givenname": returnthis = objUser.givenName
            Case "lastname": returnthis = objUser.LastName
            Case Else: returnthis = Environ("USERNAME")
        End Select
        GetUser = returnthis
    End Function