Articles of vba

Vim:如何使用.config来调暗未编译的行

当在Vim中读取linux内核源代码时,是否有任何方式告诉编辑器在某个位置有一个.config文件,并且是使macros保护内的线条变暗,导致它不被编译成内核? 如果不是的话,在阅读源代码时你会怎样解决这个问题呢? 我使用Vim,ctags和cscope,但是最终我没有注意到那些没有注意到macros保护的代码,这些代码并没有被编译到最终的二进制图像中。 有没有办法避免这种情况? [编辑] 作为一个例子, .config文件可以说我有以下configuration值。 … CONFIG_TEST_BLAH … 后来,在我有一个C文件中: – #ifdef CONFIG_TEST_BLAH void test () { … … } #else void test() { … … } #endif 在这种情况下,我希望#else块内的代码块的内容或颜色不同,以便我知道它没有被编译到最终的内核映像中。 [编辑2] 我相信像Visual Studio这样的编辑器允许这样的事情发生,我想知道是否有办法用vim来做到这一点。

如何select列中的多个单元格

到目前为止,我可以在input框中input一个单词,并让它返回特定单词内出现特定单词的次数。 我想要做的是selectinput的单词出现在每个单元格或者突出显示单词出现在每个单元格。这是我已经: Sub wordcounter() Dim word As String Dim count As Integer word = InputBox(Prompt:="Enter word to search: ", Title:="Enter Word", Default:="Search word") For Each cell In ActiveSheet.UsedRange.Columns("G").Cells cell.Value = LCase(cell.Value) If InStr(cell.Value, word) Then cell.select End If If InStr(cell.Value, word) Then count = count + 1 End If Next cell MsgBox (word & " […]

c#showdialog返回整行

映入眼帘。 我用.ShowDialog()调用一个窗口,并返回一些行形成一个文本框。 这些行会返回到List <>,但返回的文本框中的每个字符都将被分配给List <>中的自己的索引值。 我基本上想要从文本框中添加一个完整的行到它自己的List <>中的索引值 示例:我在ShowDialog()中调用的文本框中input下面的内容。 123456 87564 125 如何将文本框中的每一行添加到列表中自己的索引? 这是我现在所拥有的。 (在我input这些值的文本框窗口上没有代码)(我意识到我把它拼写成input…)当我debugging和检查pos List <>时,每个字符都有自己的索引ID .. private void GetPOs() { MultiLineImput getPOList = new MultiLineImput(); getPOList.ShowDialog(); foreach (char po in getPOList.listOfPOs.Text) { pos.Add(po.ToString()); } if (pos.Count > 0) { string a = String.Join("", pos); MessageBox.Show(a, "POs to Process"); } else { if (!getPOList.wasCanceled.Equals(1)) { […]

使用相同语言时,计算机上的function区键盘快捷键有何不同?

我正在尝试在VBAmacros中使用键盘快捷键。 (我知道,但关键是macros通过工具条通过键盘访问命令而不是其他方式)。这一切都很好,但是我发现在德国的一台testing计算机和另一台testing计算机美国。 两者都有德语设置为Office语言首选项,并使用相同版本的Office(Excel 2016 32位)。 在Excel中,例如,要使用德语获取填充颜色工具,在德国是ALT + R,TS,但在美国是ALT + R,H1。 有谁知道什么可能会导致差异,更好的是,如何在VBA中检测它,所以我可以添加条件逻辑,使其在多个位置工作? 谢谢!!

将unicode字符转换为其string表示forms

在VBA 6中有什么function(最快请)可以做这样的事情: correspondentString = function(\uXYZP) 并给你这个Unicode字符的string表示?

需要在win7 64biz上永久启动IE9 inprivate模式

我已经发现以下registry项将(通常)永久启动IE9 inprivate模式 Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Safety\PrivacIE] "FilteringMode"=hex(b):01,00,00,00,00,00,00,00 (我甚至在我的registry中没有安全密钥,并手动添加) 不幸的是,这似乎不适用于Windows7 64位 使用-inprivate添加快捷方式不是我的select,因为我想通过VBA使用IE9 任何提示/build议?

退出所有隐藏/不可见的窗口

有时我使用命令ie.visible = False ,即使它仍然存在,它隐藏了窗口。 我怎样才能closures所有隐藏的窗口? 我的实际解决scheme是从我的计算机的会话注销并再次login…有可能是一个更好的方法来做到这一点。 我试过Set ie = Nothing或者ie.Quit但是这并不影响隐藏的窗口,因为当我把它们计算在内时 Set objShell = CreateObject("Shell.Application") IE_count = objShell.Windows.Count 他们仍然在那里。 任何想法如何做到这一点?

退出错误Internet Explorer窗口

问题:我目前遇到一些问题,closures一个“不成熟”的互联网窗口,但没有内容。 基本上,如果这个“过早的”窗口是打开的,我的macros没有设法select我感兴趣的窗口,但只要我手动closures这个“过早”窗口,我可以正确运行我的代码。 它的来源来自于一个小错误,它以某种方式打开它,但除了那个窗口不影响其余的代码。 testing完成: Dim Widow As Object, page_foireuse As SHDocVw.InternetExplorer Dim objShell As Object Set objShell = CreateObject("Shell.Application") MsgBox objShell.Windows.Count ' MsgBox objShell.Windows(0).document.Title ' MsgBox objShell.Windows(1).document.Title ' MsgBox objShell.Windows(2).document.Title ' MsgBox objShell.Windows(3).document.Title ' MsgBox objShell.Windows(4).document.Title ' MsgBox objShell.Windows(5).document.Title ' MsgBox objShell.Windows(6).document.Title 'For Each Widow In objShell.Windows ' If Widow.document.Title Is Nothing Then ' this […]

VBA Unix到DOS文本转换代码错误

我目前正在创build一个代码,创build一个文本文件,从Unix数据文件转储数据到一个临时文本文件,我可以在vba中访问数据后处理。 我的macros只适用于当这个文件是在DOS格式,所以我试图将从Unix的行饲料转换到DOS。 现在,当我尝试将修改后的文本写入临时文件时,出现错误。 我的代码列在下面 Filepath = Application.GetOpenFilename(".f06 files (*.f06),*.f06") Dim tempFilepath As String tempFilepath = Replace(Filepath, ".f06", "_temp.txt") Dim realfile As Integer realfile = FreeFile Dim tempfile As Integer tempfile = FreeFile Dim FileContent As String Open tempFilepath For Output As tempfile Close #1 Open Filepath For Input As realfile Do While Not EOF(realfile) Line […]

删除目录中特定列的空间

我在一个目录中有很多.csv文件。 第四列(数字)之间有空格,如下例所示。 如何从列中删除空间,并将其应用于目录中的所有文件,而无需逐一打开每个文件。 "EMIS Number","Organisation Name","Organisation Code","Number","Date","Clinical Code","Code Term", "11","West Hampstead Medical Centre","F03033","931 094 3111","19-Apr-1019","G340-1","Coronary artery disease", "14","Prince Of Wales Medical Centre","F03010","401 300 1319","03-Jan-1004","G30","Acute myocardial infarction", "13","HAMPSTEAD GROUP PRACTICE","F03014","411 419 3949","1999","G3","Ischaemic heart disease", "19","BROOKFIELD PARK SURGERY","F03031","400 134 0101","1991","G3","Ischaemic heart disease", PS我已经尝试了Excel和VBA,但他们都需要打开每个文件来运行一个公式。 我也尝试了UltraEdit,但它会删除所有文件中的所有空格,而不是一个特定的列。