我已经在本地存储库中创建了一个功能分支,并将更改提交给我。说它叫feature_x
。该分支不存在于原始站点bitbucket.org。
我想对我对bitbucket上的develop
分支所做的更改发出请求,以便我的队友可以进行代码审查。
我确实在bitbucket上看到了创建拉取请求的说明,并且开始浏览该对话框,但是我的障碍之一是我需要在bitbucket上创建一个分支来执行拉取请求,但是我只有一个本地功能分支。
答案 0 :(得分:0)
这些命令完成了我需要做的事情,以使bitbucket能够执行拉取请求。我在一个名为Sub Macro_1()
Dim csvName As String, csvFolder As String, csvExtension As String
csvFolder = Worksheets("configs").Range("B1").Value
csvName = Worksheets("configs").Range("B2").Value
csvExtension = ".csv"
sessionDate = Worksheets("configs").Range("B3").Value
**' ADD NEW SHEET
Sheets.Add Type:=xlWorksheet
ActiveSheet.Name = csvName**
' LOAD CSV TO NEW SHEET
Range("A1").Select
With ActiveSheet.QueryTables _
.Add(Connection:="TEXT;" & csvFolder & csvName & csvExtension, Destination:=ActiveCell)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
' END LOAD CSV
'Find number of pairs that played the tournment
Dim lastPair_cell As Integer
Dim rngX As Range
Set rngX = Worksheets(csvName).Range("A1:A100").Find("Board", lookat:=xlPart)
If Not rngX Is Nothing Then
lastPair_cell = rngX.Row - 1
End If
**'Find column index number in TABELA
Dim rngY As Range, weekCol As Integer
Set rngY = Worksheets("Tabela").Range("A1:Z1").Find(sessionDate)
weekCol = rngY.Column**
'Find column index of CSV MEMBERID1
Dim rngZ As Range, memid1Col As Integer
Set rngZ = Worksheets(csvName).Range("A1:Z1").Find("MemberID1")
memid1Col = rngZ.Column
'Find column index of CSV TotalPercentage
Dim rngZZ As Range, percentidCol As Integer
Set rngZZ = Worksheets(csvName).Range("A1:Z1").Find("TotalPercentage")
percentidCol = rngZZ.Column
'PASTE DATA
Dim rCell1 As Range, rCell2 As Range
Dim rng1 As Range, rng2 As Range
Set rng1 = Worksheets(csvName).Range(Cells(2, memid1Col), Cells(lastPair_cell, memid1Col + 1))
Set rng2 = Worksheets("Tabela").Range("B2:B150") 'RANGE N FEDS
For Each rCell1 In rng1.Cells
For Each rCell2 In rng2.Cells
If rCell2.Value = rCell1.Value Then
Worksheets("Tabela").Cells(rCell2.Row, weekCol).Value = Worksheets(csvName).Cells(rCell1.Row, percentidCol).Value
End If
Next rCell2
Next rCell1
End Sub
的分支机构中:
feature_X