小编MMS*_*MMS的帖子

如何自动移动列表框上的滚动条以显示所选项目 - VBA

我正在动态选择列表框中的一个项目。现在,当选择该项目时,所选项目必须显示在列表框的前端。更像是滚动条必须移动到该项目。这样最终用户就会知道该项目已被选择。我尝试使用 SetFocus 但收到错误:

对象不支持此属性或方法

错误发生在.SetFocus(idx) = True下面一行:

ReqSearchvalue = Range("B" & reqrow).Value

Sheets("Main").Activate

With Sheets("Main").Ent_ListBox
    For i = 0 To .ListCount - 1
        Value = .List(i)
        If Value = ReqSearchvalue Then
            idx = i
            Exit For
        End If
    Next i
    .Selected(idx) = True
    .SetFocus(idx) = True
End With
Run Code Online (Sandbox Code Playgroud)

请分享您的想法。

excel vba

3
推荐指数
1
解决办法
5768
查看次数

计算所有列具有相同值的行数

我有一个数据帧,我想计算每行内所有列具有相同值的行数.

例如,我有这些数据:

cmp <- read.table(text = "
A B C D
1 1 1 0
1 1 1 1
2 2 2 2
3 3 3 0", header = TRUE)
Run Code Online (Sandbox Code Playgroud)

这里,计数是2,因为第二行和第三行每个只有一个唯一值,分别只有1s和2s.

提前致谢.

r

3
推荐指数
1
解决办法
728
查看次数

在pandas数据框中透视表

我有一个要求,我在尝试计算值并将它们放在数据透视表中.

这是我的数据帧,

  Cola        Colb          
 Apple    Rippened 
Orange    Rippened
 Apple  UnRippened
 Mango  UnRippened
Run Code Online (Sandbox Code Playgroud)

我希望输出像这样,

        Rippened  UnRippened
Apple          1           1
Mango          0           1
Orange         1           0
Run Code Online (Sandbox Code Playgroud)

请分享您的想法.

python pivot dataframe pandas

3
推荐指数
3
解决办法
130
查看次数

PowerBI - 使用计算字段计算列中值出现的次数

我正在尝试使用计算字段来计算某个值在列中出现的次数。Measure 可以更轻松地做到这一点,但Measure 限制了我创建其他列的使用以及仪表板中的使用。

City

BOS

DTW

CLE

CLE

BOS

BOS

Expected Output:    

City   Total

BOS  3

CLE  2

DTW  1
Run Code Online (Sandbox Code Playgroud)

在查询编辑器中使用 Groupby 选项会忽略数据中的其他列。

powerbi

3
推荐指数
1
解决办法
2万
查看次数

Python - Pyodbc 连接错误

我正在尝试使用Python3.4连接到SQL Server数据库

这是适合我的代码

cnxn = pyodbc.connect('DRIVER={ODBC Driver 13 for SQL Server};SERVER=DESKTOP-GDM2HQ17\SQLEXPRESS;DATABASE=pyconnect;Trusted_Connection=yes')
Run Code Online (Sandbox Code Playgroud)

我使用 Windows 连接登录到我的 Management studio - 数据库。

这是代码,它对我不起作用:

cnxn = pyodbc.connect('DRIVER={ODBC Driver 13 for SQL Server};SERVER=DESKTOP-GDM2HQ17\SQLEXPRESS;DATABASE=pyconnect;UID=DESKTOP-GDM2HQ17\sid;PWD=123')
Run Code Online (Sandbox Code Playgroud)

请分享您对我出错的地方的想法。

python sql-server authentication pyodbc

2
推荐指数
1
解决办法
1万
查看次数

R - 将秒转换为小时和分钟

我有一个这样的数据框,

Time ColA Colb
123  A     B
Run Code Online (Sandbox Code Playgroud)

我想将其转换为这样的数据框,

Hours Minutes ColA Colb
0      2       A    B
Run Code Online (Sandbox Code Playgroud)

时间列中的值采用秒的形式。如何将其转换为小时和分钟?

r

2
推荐指数
1
解决办法
2万
查看次数

熊猫使用函数突出显示带有条件的excel列

我有一个要写入 excel 的 Pandas 数据框 (Pre_Final_DataFrame)。

如果相应行在以“Result_”开头的任何列上有“No Match”字样,我需要突出显示 Excel 中的一行。

因此,我决定使用一个数组来了解需要突出显示哪个数组。

但是现在,我更喜欢使用函数来突出显示的方法,因为它太慢了。请帮我解决这个问题。

用简单的话来说,我正在使用 Pandas 编写一个数据框来表现出色,它有数百万条记录,并且我希望仅当名称以开头的任何列中存在 No Match 值时才以“黄色”突出显示一行带有“结果_”

excel中出现的预期结果如下所示,

以数据帧开头的输入代码:-

import pandas as pd

data = {
     'ColA':[1, 1], 
     'ColB':[1, 1],
     'Result_1':['Match', 'Match'], 
     'ColA1':[1, 2], 
     'ColB1':[1, 1],
     'Result_2':['No Match', 'Match'],  
     }

Pre_Final_DataFrame = pd.DataFrame(data)

ResultColumns_df = Pre_Final_DataFrame.filter(like='Result_')
ResultColumns_df_false =ResultColumns_df[ResultColumns_df.values  == "No Match"]
RequiredRows_Highlight = ResultColumns_df_false.index.tolist()

writer = pd.ExcelWriter(OutputName,date_format='%YYYY-%mm-%dd',datetime_format='%YYYY-%mm-%dd')
Pre_Final_DataFrame.to_excel(writer,'Sheet1',index = False)
writer.save()
Run Code Online (Sandbox Code Playgroud)

预期输出:

在此处输入图片说明

python pandas

2
推荐指数
1
解决办法
1917
查看次数

在MS Excel中按列排序-VBA

我正在尝试在Excel中使用VBA对列进行排序。这是我的代码

Range("B:B").Sort _
Key1:=Range("B2"), Order1:=xlAscending
Run Code Online (Sandbox Code Playgroud)

但是,它也会对标题列进行排序。我不希望将Header Column包含在排序中,所以我尝试了以下代码,

Range("B1:B").Sort _
Key1:=Range("B2"), Order1:=xlAscending
Run Code Online (Sandbox Code Playgroud)

这也不起作用。无论如何告诉VBA我的第一列是排序时的标题名称?请分享您的想法。

sorting excel vba excel-vba

1
推荐指数
1
解决办法
3833
查看次数

消息框中的VBA显示集合 - 错误

我试图弹出一个类似的消息,

"There are 3 Reports available . They are Today, Yesterday, Day before"
Run Code Online (Sandbox Code Playgroud)

这是代码,

  On Error Resume Next
  For Each a In MonthYear
     arr.Add a, a
  Next

  For i = 1 To arr.Count
     Cells(i, 1) = arr(i)
  Next


MsgBox ("There are " & arr.Count & " Reports available. They are  " & arr &
Run Code Online (Sandbox Code Playgroud)

但它没有用.它说没有找到sub或argument.

excel vba excel-vba

1
推荐指数
1
解决办法
1719
查看次数

用逗号(,)拆分字符串,并将对象添加到集合中

我有一个要求,我有一个大字符串.

例如: abc,def,ghi

我想分割这些字符串并将它们放在一个集合中.

要求输出:

ExampleCollection
abc
def
ghi
Run Code Online (Sandbox Code Playgroud)

如何在VBA中执行此操作.

excel vba excel-vba

1
推荐指数
1
解决办法
1900
查看次数