Sub Sample_MultiUserEditing()
'ブックの共有モードと排他モードを切り替える

    Dim FileName As String
    Dim BookState As String
    Dim w As Workbook

    FileName = "C:\Documents\test01.xlsx"
    Set w = Workbooks.Open(FileName)

    '確認メッセージを非表示にする
    Application.DisplayAlerts = False

    If w.MultiUserEditing =

Read more

问题背景

在Outlook中操作Excel，在Createbject后,进行对Excel的操作。用完之后有的时候set nothing到彻底关闭进程会有延迟。导致下次操作要花费一定的等待时间。 解决思路是，根据PID强制关闭进程。示例代码如下：

Public Declare Function GetWindowThreadProcessId Lib "user32" _
  (ByVal hwnd As Long, _
   ByRef lpdwProcessId As Long) As Long

Function KillProcess(hwnd As Long)
  Dim Curren

Read more

# -*- coding:utf-8 -*-

import time
import re
time1=time.time()

# AC自动机算法
class node(object):
    def __init__(self):
        self.next = {}
        self.fail = None
        self.isWord = False
        self.word = ""

class ac_automation(object):

    def __init__(self):
        self.root

Read more

import pyodbc import os import pandas as pd

from configparser import ConfigParser

desktop_path = os.path.normpath(os.path.expanduser("~/Desktop")) config = ConfigParser() config_file = desktop_path + "\read_ini.ini" config.read(config_file, 'cp932') db_path = config.get('baseconf', 'db_path') work_p

Read more

如何让Access在执行VBA时，不提示警告？ 例如：正常情况下我们执行插入或删除的时候，会提示我们操作了多少行数据，但有些场景部门并不希望它提示出来，因为如果用户不点击“确认”或“取消”，代码就无法继续往下执行。 那么如何设置才能不显示提示信息呢？ 有一下两种方案：

• 执行DoCmd.SetWarnings False命令关闭系统提示和警告信息。 示例：

  Dim strSQL As String
  strSQL = "更新语句"
  '方法1
  DoCmd.SetWarnings False'不显示警告
  DoCmd.RunSQL strSQL
  DoCmd.setwarnints True'恢复显示

Read more

安装第三方库

pip install jaconv

用法

import jaconv

# Hiragana to Katakana 平假名 ===> 片假名
jaconv.hira2kata(u'ともえまみ')
# => u'トモエマミ'

# Hiragana to half-width Katakana 平假名 ===> 半角片假名
jaconv.hira2hkata(u'ともえまみ')
# => u'ﾄﾓｴﾏﾐ'

# Katakana to Hiragana 片假名 ====> 平假名
j

Read more

错误提示信息

セッション状態要求をセッション状態サーバーに対して作成できませんでした。ASP.NET 状態サービスが開始されていて、クライアントとサーバーのポートが同じであることを確認してください。サーバーがリモート コンピュータ上にある場合、HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\aspnet_state\Parameters\AllowRemoteConnection の値を調べて、このコンピュータがリモート要求を受け付けることを確認してください。サーバーがローカル コンピュータ上にあり、上記のレジストリ値が存在していないか

Read more

正确佩戴口罩的完整步骤！这样才能更有效预防感染武汉肺炎！【内附动图】

武汉肺炎爆发，全球多个国家和地区也开始陆续出现疑似或确诊的病例，每个人都要做好自我防护。正确佩戴口罩是预防新型肺炎的之一，关于戴口罩，这些知识一定要get！

口罩如何选？口罩如何戴？

• 医用外科口罩：可以阻挡70%的细菌，如果去公共场所，不与病人接触，佩戴医用外科口罩就足够。
• 医用防护口罩（N95口罩）：可以阻挡95%的细菌， 如果会接触病人则应选择N95口罩。 ## 正确佩戴口罩的步骤：

  『N95』和『医用外科口罩』口罩的佩戴方法如图所示，记住佩戴前先洗手！！！

• 『N95』口罩的佩戴方法（头戴式）： 戴N95口罩方

Read more

vscode设置JetBrains Mono字体

最近Jetbrains推出了一款新的编程字体Mono，便到官网上下载试了一下，具体设置方法如下。

字体下载

1. 官网：https://www.jetbrains.com/lp/mono/
2. 网盘：链接：https://pan.baidu.com/s/1KxbsfN6tJWTsXyIqJw0MNg 提取码：dqdz

字体安装

将下载好的字体解压双击安装就可以。

在vscode中配置字体

1. ctrl + shif + p,进入用户设置界面如下图：

2. 修改字体

   {
        "editor.fontFamily": "

Read more

将vscode和cmder结合

1. 按ctrl + shift + p键，输入setting如下图
2. 然后依次点击：Features -> Terminal -> Edit in the settings.json,如下图

3. 然后在打开的json文件中添加如下内容

   {
        "terminal.integrated.shell.windows": "cmd.exe",
        "terminal.integrated.shellArgs.windows": ["/k", "D:\\cmde

Read more