Tag: 日历

谷歌日历api v3帮助生成链接

我正在尝试使快速添加事件的工作，以便我可以在Microsoft Excel中运行快速添加vba，所以我可以直接从Excel中添加事件。 我发现我可以使用链接： https://www.googleapis.com/calendar/v3/calendars/[CALID]/events/quickAdd?key=[API KEY]＆text = [QUICK ADD TEXT]＆sendNotifications = true CALID = Id of calandar API KEY = Api key QUICK ADD TEXT = text for quick add in google cal 但它似乎没有工作？ 这是否与0auth有关，或者这只是不可能的事情？ 我似乎得到的错误： { "error": { "errors": [ { "domain": "global", "reason": "notFound", "message": "Not Found" } ], "code": 404, "message": "Not Found" […]

子用户窗体日历填充电子表格单元而不是在用户窗体上

我遇到了使用DTpickerdate的问题。 所以我已经添加了自己的日历popup窗口，现在当我在usereform中，然后单击日历的框或button时，它在原始电子表格（它看起来像在最后选中的单元格中）而不是我的用户表单中填充date， TextBox8。 我感到不知所措，有时它像我打算的那样工作，而其他时间则不这样做。 Private Sub Date_Button_1_Click() UserForm1.TextBox8 = ActiveCell 'this is the first calendar button & box frmCalendar.Show_Cal UserForm1.TextBox8.Value = g_sDate End Sub Private Sub TextBox8_Enter() UserForm1.TextBox8 = ActiveCell g_bForm = True frmCalendar.Show_Cal UserForm1.TextBox8.Value = g_sDate End Sub 我相信它正在盯着我。 任何援助将是伟大的。 谢谢。

excel vba从前台获取所有日历

我尝试使用VBA从Excel文件中读取当前Outlook会话中的所有可用非共享日历。 为此，我已经用下面的语句成功加载了默认日历： Set Calendar = outApp.GetNamespace("Mapi").GetDefaultFolder(9) 但只要我尝试加载其他可用的日历，我遇到了一些问题。 我似乎通过在vba编辑器的本地variables视图中手动浏览Outlook会话对象来查找可用的日历。 到达那里的path（通过所有会话，文件夹和项目层次结构）对于每个用户来说都是不同的。 所以我现在最好的解决scheme是抓取整个对象，直到find有效的日历。 但老实说，我希望有一个更好的解决scheme。 我的目标是确定当前Outlook会话中的所有可用日历，并为用户select在哪个日历中添加新约会。 只是为了logging，我添加以下代码的约会： Public Sub AddOutlooktermin(subject As String, _ startDateTime As Date, _ endDateTime As Date, _ body As String, _ location As String, _ allDayEvent As Boolean, _ reminderMinutes As Integer, _ setReminder As Boolean, _ busyStatus As Integer _ ) Dim outApp As […]

擅长使用VBA在日历中inputdate

我正在努力做什么; 我想要一个日历，当约会完成后，我可以把约会加在我的约会收取的金额作为收入，也可以添加当我购买物品，我购买他们的日子和多less，并把它作为开支。 然后，将这些信息（收入/费用）填充到另一个可以打印出来并纳入会计核算的标签中。 我正在日历部分工作，但是出现在正确的列中的日子的问题。 我每天都有3个专栏，这样我就可以稍后添加数据。 我可以在日历中填写date，但是我需要他们每次跳过两列，但他们不是。 我包括代码和这个时候出现的一个片段。 Sub CreateCalendar() Dim csheet As Worksheet Set csheet = ThisWorkbook.Sheets("Sheet2") selDate = [b1] fMon = DateSerial(Year(selDate), Month(selDate), 1) lMon = CDate(Application.WorksheetFunction.EoMonth(fMon, 0)) stRow = 4 'clear last cal Rows(4).ClearContents Rows(10).ClearContents Rows(16).ClearContents Rows(22).ClearContents Rows(28).ClearContents Rows(34).ClearContents 'determine what weekday 1st is. . . If Weekday(fMon) = 1 Then stCol = […]

Excel VBA通​​过窗体中的命令button调用日历

我刚刚从工具>附加控件中添加了日历12.0。 日历工作正常，我把它吐出date到正确的单元格。 然而，我想要的是真正使日历从一个命令button可见，因为我的表单包含一堆字段，我不想让这个日历陷于窗体。 我曾尝试Calendar1.show但.show不是一个选项。 所以最终我需要一个命令button来显示日历，允许用户select（我有），然后closures日历。 任何帮助？ 我提前谢谢你！！ bdubb

Excel VBAmacros：创build一个Outlook日历事件

你可以从Excel中运行一个可以与Outlook交互的macros，并在日历上创build和事件吗？

确定date是否为Excel中的工作日

我在H10栏中有一个date，需要在下一个栏目I中增加45天 如果没有date列我必须是空白的 如果第45天在周末，则计算必须移至下一个周一的工作日

重复使用UserForm VBA代码在同一工作表中的多个dateselect器

我想知道如何重用VBA代码，我必须在同一个工作表上input不同的单元格来创build多个日历dateselect器。 我已经尝试更改.frm文件的名称，并重新导入它以简单地更改单元格引用输出，但是Excel每次都会拒绝此操作，并说名称已被使用。 我正在密切关注这个例子 。 如果您知道如何隐藏可点击图片的代码，直到选中了具有date的单元格，则奖励点数。 以下是我目前在frmCalendar中使用的代码： Private Sub cmdClose_Click() Unload Me End Sub Private Sub MonthView1_DateClick(ByVal DateClicked As Date) On Error Resume Next Dim cell As Object For Each cell In Range("C18") cell.Value = DateClicked Next cell Unload Me End Sub Private Sub UserForm_Initialize() If IsDate(ActiveCell.Value) Then Me.MonthView1.Value = Range("C18") End If End Sub …和我的代码为Module1： […]

如何获取date点击monthview我的文本框上的userform？

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Txt_Prod_Loc_Date.Value = MonthView1.Value Unload Me End Sub Private Sub FrmCalendar_Initialize() Unload Me End Sub 我也试过Txt_Prod_Loc_Date.Value = DateClicked。 但是我看到一个“运行时错误424，对象需要 谢谢

将约会发送到共享日历

我有一个脚本，从SharePoint网站获取实验室停机数据。 根据一定的条件，如果发生停电，它会向Outlook发送预约。 Private Sub CreateAppt(Subject As String, startTime As Date, endTime As Date, _ startDate As Date, endDate As Date, superString As String, _ OUTAGEREQUIRED As String) Dim body As String: Dim myoutlook As Outlook.Application Dim myRecipient As Outlook.Recipient Dim myNameSpace As Outlook.Namespace Dim olkCalendar As Object Dim olkSession As Object Dim myapt As Object […]