小编Ral*_*lph的帖子

如何解决setMyLocationEnabled权限要求?

打开时,我想让我的地图专注于我当前的位置MapActivity.我有一个特定的行问题:

mMap.setMyLocationEnabled(true);  
Run Code Online (Sandbox Code Playgroud)

调用需要用户可能拒绝的权限:代码应明确检查是否可以使用权限('checkPermission')或显式处理潜在的'SecurityException'.

我该如何解决这个问题?当我搜索这个问题时,我已经阅读了一些内容,但我找不到有用的东西.

这是完整的代码:

public class MapsActivity extends FragmentActivity implements OnMapReadyCallback {
private static final String FIREBASE_URL="https://haerev.firebaseio.com/";
private Firebase firebaseRef;
private GoogleMap mMap;

@Override
protected void onCreate(Bundle savedInstanceState) {
    super.onCreate(savedInstanceState);
    setContentView(R.layout.activity_maps2);
    Firebase.setAndroidContext(this);
    firebaseRef = new Firebase(FIREBASE_URL);


    SupportMapFragment mapFragment = (SupportMapFragment) getSupportFragmentManager()
            .findFragmentById(R.id.map);
    mapFragment.getMapAsync(this);
    setUpMapIfNeeded();

}

private void setUpMapIfNeeded() {
    // Do a null check to confirm that we have not already instantiated the map.
    if (mMap == null) {
        // Try to obtain the map from the …
Run Code Online (Sandbox Code Playgroud)

java android google-maps

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

Excel VBA - 第一行投掷"Argument not optional"

我正在尝试开发一个sub,它一次从同一个单元格中提取数据,并将其复制到名为"Summary"的工作表并粘贴到其中以创建值表.但是,我收到错误"Argument not optional"并且第一行被突出显示为问题(具有Sub SummaryAssemble()的那个),但似乎没有理由,因为它没有必要将任何东西传递给子程序.

Sub SummaryAssemble()

    Dim i As Integer

    Dim x As Integer

    x = Sheets.Count


    For i = 3 To x Step 1

    Sheets(i).Activate
        ' Copy and paste the value into sheet where A
        ' Range.Select($A
        ' First copy value for ATRT 2014 (cell B4)
       Range.Select ("B4")
       Selection.Copy
       Sheets(Summary).Activate
       ' Select Column B Row i (2, i)
       Range(2, i).Select
       ActiveCell.Paste

       Sheets(i).Activate

        Sheets(ActiveSheet.Index + 1).Activate
    Next i
End Sub
Run Code Online (Sandbox Code Playgroud)

excel vba excel-vba

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

在尝试阅读#NAME时?从excel到字符串的值会给出类型不匹配错误

我有一个宏从excel读取描述字符串,并发现数据中是否存在特定的字符串.

有时输入文件可能包含#NAME之类的值?在牢房里.当宏到达此单元格时,它只是在下一行中给出错误类型不匹配运行时错误13.

我只是想忽略这一行并继续下一行.我该如何进行验证(如果).我正在使用'do-loop until'来循环.descriptionString是一个字符串变量.

descriptionString = currentwrkbk.Worksheets(1).Cells(i, 1).Value
Run Code Online (Sandbox Code Playgroud)

excel vba excel-vba

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

删除无法使用SpecialCells抓取的行的最快方法

基于该网站上的另一个问题,我开始想知道删除具有特定条件的所有行的最快方法.

上面提到的问题有各种解决方案:

(1)遍历工作表上的所有行(向后)并逐个删除满足条件的所有行.

(2)首先将适用范围移动到数组中,然后评估数组中的条件,并在此基础上逐个删除基础工作表上的所有行.

可能的改进可能是删除块中的所有行以减少访问工作表的开销.但是如果你走这条路线那么你有多种选择来"存储"范围,然后才真正删除它们:

(1)Intersect用于合并应删除的范围.

(2)只需编写一个String包含要删除的所有行.

那么,这是最快的方法呢?

excel vba excel-vba

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

使用VBA从Excel文件中检索列标题

我正在与必须识别excel文件中某些变量的人合作。当前,与我一起工作的人有很多文件夹和子文件夹,其中都包含Excel文档。他使用的VBA代码在子文件夹的文件夹中查找,然后返回路径,然后创建到该子文件夹的超链接(这不是下面的VBA代码的一部分),并查看其中的所有excel文件,无论主文件夹中子文件夹的级别如何。

这是代码:

    Sub GetFolders()
Dim path As String
Dim folder As String
Dim row As Integer


path = "your directory here"
folder = Dir(path, vbDirectory)
row = 1

Do While folder <> ""
If (GetAttr(path & folder) And vbDirectory) = vbDirectory Then
    Cells(row, 1) = path & folder
    row = row + 1
End If
folder = Dir()
Loop

End Sub
Run Code Online (Sandbox Code Playgroud)

很好,但是我知道必须有更好的方法。我如何处理此代码以返回在文件夹A内的子文件夹或文件夹B内的B)中找到的所有excel文件的COLUMN HEADERS。我希望将它们返回到excel电子表格,这样就不需要打开100多个excel文档,而只需要打开一个,然后我们就可以确定需要进一步调查的所有excel电子表格,而忽略其余的电子表格。

excel vba excel-vba

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

标签 统计

excel ×4

excel-vba ×4

vba ×4

android ×1

google-maps ×1

java ×1