Tag: 日历

Excel 2003：日历对象/ VBA单击合并单元格时不起作用: 我有一个小问题让我插入到我的Excel表中的日历对象工作。我有一个完全相同的日历对象，在另一个表上完全相同（除了列引用）的代码。唯一的区别是，在工作表A（问题单）中，我select的单元格（我想让日历对象popup）被合并并居中。这似乎导致了一个问题。例如，当我将代码中的引用设置为整个列L时，日历对象将适用于该列中尚未合并或居中的所有单元格。（要清楚的是，单元格只在列中合并，而不是在任何行中）。有没有人有任何想法我可以解决这个问题？我必须把那些单元合并起来，不pipe怎么样，我都可以绕过这个单元。如果有人有任何build议，我真的很感激，这一直是驱使我疯了整天！先谢谢你。代码（不是我自己的）在下面; Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub 'Change this to your range of dates If Not Intersect(Target, Range("L:L")) Is Nothing Then Calendar2.Top = Target.Top + Target.Height Calendar2.Left = Target.Left + Target.Width / 2 – Calendar2.Width / 2 Calendar2.Visible […]

获取date摘入用户表单文本框: 我有两个用户表单，其中一个是我使用本指南创buildhttps://sites.google.com/site/e90e50/calendar-control-class的日历，其中一个是select一个begindate和enddate的日历。我正在尝试从frmCal中select到userform1的文本框中的date。这是我从userform1调用的方式 Private Sub txtBegin_Enter() controlwithfocus = ActiveControl.Name frmCalendar.Show UserForm1.txtBegin.Value = Calendar1.Value End Sub 哪个不行，就会抛出一个错误所需对象现在这个语法在日历代码后面，并且可以写入一个单元格的问题。我的问题是我不想写一个单元格，我想要写入txtBegin或txtEnd取决于哪个文本框“调用”窗体日历打开。 Private Sub Calendar1_DblClick() ActiveCell.Value = Calendar1.Value Unload Me End Sub 如何修改这个为了让Calendar1.Value写入“调用”文本框而不是工作表上的单元格？编辑我正在使用Excel 2013 64位版本

根据2个单元格中的date突出显示列: 我设法根据我保存在某个单元格中的date值来获取格式化的列。我怎样才能另外检查一天是否在下面图片中的合并单元格表示的当月份？例如，目前的公式 d $ 3：AB $ 3 = DAY（TODAY（））如果日价值为16/17，则会突出显示2列，但我想仅在10月份突出显示10月16日的列。非常感谢您的帮助

VBA日历控制不同版本的问题: 我已经构build了一个使用附加日历控件（mscal.ocx）的简单Excel工具。一切工作都很好，在不同的系统上，但是，日历似乎没有实现，而不是没有显示dateselect器，整个forms崩溃。有没有办法实现日历控制，以便它在每个系统上运行？或者我必须自己编写dateselect器？（OFFICE12）

我如何在Excel 2007中使用波斯语date（Shamsi）？: 我喜欢用excel 2007工作表中的Persian date（Hijri-Shamsi）作为计算的基础，但是不知道怎么做？

find每个工作日的最后一天: 我试图确定一个给定的date是否是该月（周日，周一，周二等）的最后一天。例如，2016年3月，该月的最后一个星期五是25日。请注意，我不是想弄清楚这个月的最后一天是什么。此外，问题中的“工作日”是指7天中的任何一天，而不是非周末的日子。我使用Excel和PHP作为标签，因为我可以使用任何一种方法。

Excel数据透视表和宿舍: 我有一些（每日）Excel投资组合价值的时间序列数据，我想把它转换成季度数据，其中季度的价值应该是最后一天的价值（最后一个工作日，但是没有其他的时间序列）。人们可以按照数据透视表的魔法来组织事物，但总体机制（数量，总和，最大，最小…）似乎都不适用。我错过了什么明显的？

方法通过excel在非默认日历中添加约会: 我试图添加约会到Outlook通过与VBA的Excel和所有好的时候，我将约会添加到默认日历，但我不知道方法将此约会添加到Outlook中的另一个日历。下一个代码是默认日历：子约会（） Const olAppointmentItem As Long = 1 Dim OLApp As Object Dim OLNS As Object Dim OLAppointment As Object On Error Resume Next Set OLApp = GetObject(, "Outlook.Application") If OLApp Is Nothing Then Set OLApp = CreateObject("Outlook.Application") On Error GoTo 0 If Not OLApp Is Nothing Then Set OLNS = OLApp.GetNamespace("MAPI") OLNS.Logon Set […]

两个循环在一个代码中: 我可以使用一些帮助纠正下面的代码，当激活时显示的是第一个图像，而我想要做第二个图像。另外，如果你有其他的代码来做同样的工作，请做。提前感谢你的帮助。 Private Sub Worksheet_Activate() Dim rng As Range, cell As Range Dim a As Range, az As Range Application.EnableEvents = False Set rng = Range("A2:AE2") Set az = Range("A3:AE6") For Each cell In rng For Each a In az If cell.Value = "Fri" Then a.Value = "Fri" ElseIf cell.Value = "Sat" Then a.Value […]

如何更改Excel日历控件的语言: 使用MS Excel 2003，我想更改插入的日历控件的语言。我想用英文获取月份和工作日的名字，而不是西class牙语（我的电脑的本地语言）。我不知道该怎么做我一直在谷歌search，没有成功。非常感谢你提前。